DEPARTMENT  OF  TRANSPORTATION 

FEDERAL  AVIATION  ADMINISTRATION 
WASHINGTON,  DC  20691 


ft  ft 


i 

i 


DISCLAIMER  NOTICE 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DDC  CONTAINED  A  SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


*  *  J  ,  K  !*,»!  I  I 


r/VA-EK-79-10 


4.  Title  o»J  5wi>tiil» 


7~o7 


vernmeni  Acceitien  No, 


INM,  Integrated  Noise  Model,  Version  2 
Programmer's  Guide 


7,  Author' *1  ~  " 

Thomas  Connor,  Robert  Hinckley,  et  al 


9.  Performing  Orgonliotlon  Name  and  Addren 

Department  of  Transportation  i/ 
Transportation  Systems  Center 
Kendall  Square 

jCambrldqe,  Massachusetts  02142 

12.  Sponeorlng  Agency  Nam#  and  Addre»t 

Federal  Aviation  Administration 
800  Independence  Ave.,  S.W. 
VJashington ,  D.C.  20591 


’T 

i Pff  n  ■'  •  | 

J, 

i  Oii'e 

September  19' 

9 

6, 

Performing  Qfg  tm  tot  on 

C  ed« 

8. 

Pei  arm  rg  0  g<-m z of  or 

Pepo'l  Mo, 

10, 

Worl  Jmt  No  (TRAiS) 

15.  Supplementary  Not«» 


1 1 ,  Contract  or  Grant  Nc 

E££lMz££± 


13.  Type  of  Report  end  Period  Covfl'ec 

Programmer's  Guide 


Id,  Spomorlng  Agency  Code 


16.  Abitract 


'jA 


This  document  contains  information  on  the  procedures  to  implement  the 
Integrated  Noise  Model  (INM) ,  Version  2  on  to  a  computer  system.  The 
INM  is  a  collection'' of  computer  programs  which  can  calculate  the 
aircraft  noise  environment  in  the  vicinity  of  an  airport.  The  INM  is 
available  from  the  FAA  in  the  form  of  a  magnetic  tape. 

INM  Version  2  supersedes  Version  1  which  was  released  in  January  1978, 
This  document  replaces  *FAA  Integrated  Noise  Model,  Version  1,  Computer] 
Installation  Instructions*  (Report  No.  FAA-EQ-78-03) . 


■Access  1. on  ;;,2 r 

HtTs  ~ir.z ' . 

l) 

I'.Vtfi:  ■. 


■  / 


17,  Key  Wordi 


DISTRIBUTION  STAY) 
Approved  for  public 


Distribution  Unlimited 


19.  Security  Cloulf.  (of  lhl»  report) 

Unclassified 


18,  Dictrlbutlon  Slolemenl 


rwleaaoj 


20,  Security  Cloulf,  (of  thl •  poge) 

21<  No,  ol  P ogot 

22.  Price 

Unclassified 

129 

•orm  DOT  F  1700.7  (8-72) 


Reproduction  of  eomplotod  page  outhor|*#d 


CONTENTS 


Section 

1 . 0  INTRODUCTION . 

2 . 0  TAPE  CHARACTERISTICS . 

3 . 0  INSTALLATION  INSTRUCTIONS . 

3 . 1  Installation  Procedures . . . 

3.2  Conversion  Problems . 

4.0  DATA  BASE  AND  TRANSLATOR . 

5.0  PROGRAM  DESCRIPTION . 

6.0  FUNCTIONAL  AND  LINKAGE  DIAGRAMS 

7.0  SUBROUTINE  DESCRIPTIONS . 


LIST  OF  ILLUSTRATIONS 


1.0  INTRODUCTION 


A  set  of  computer  programs  has  been  generated  for  the 
Federal  Aviation  Administration  for  the  computation  of  noise 
exposure  values  due  to  aircraft  operations  around  airports.  The 
collection  of  programs  is  called  the  Integrated  Noise  Model 
(INM) .  The  INM  will  compute  noise  exposure  values  for  the  fol¬ 
lowing  noise  metrics:  Noise  Exposure  Forecast' (NEF) ;  Day-Night 
Average  Sound  Level  (Ldn) ;  Community  Noise  Equivalent  Level 
(CNEL) ;  Equivalent  Sound  Level  (Leq) ;  and  the  Time  Above  A- 
weighted  Sound  Levels  (TA) . 

The  INM  is  comprised  of  tue  following  programs  which  oper¬ 
ate  separetely: 

o  The  Contour  Analysis 
o  The  Grid  Analysis  Model 
o  The  Contour  Plotting  Packages 
o  Data  Base  Translator 
o  Data  Base  Formatter  Listing  Generator 
While  the  contour  analysis  and  grid  analysis  models  operate 
independently,  they  share  the  subroutines  which  read  the  input 
data  and  perform  single-event  noise  calculations.  The  contour 
plotting  package  uses  as  its  primary  input  the  definition  for 
contour  point  locations  which  are  output  by  the  contour  analysis 
models . 


These  programs  are  written  in  the  FORTRAN  IV  language.  An 
effort  has  been  made  to  conform  to  the  current  ANSI  standards,  in 
order  to  allow  for  multiple  installations  of  the  INM.  However, 
the  user  is  cautioned  that  known  differences  from  the  standard 
exist,  (see  Section  3.2)  and  that  further  differences  may  not  be 
documented.  Version  II  of  the  INM  is  currently  operating  on 
CYBER  175  and  CDC  6600  systems,  and  the  plot  routines  are  used  on 
ZETA  and  CALCOMP  plotters. 

This  manual  is  intended  for  use  by  computer  programming 
personnel,  familiar  with  the  protocols  of  the  FORTRAN  programming 
language,  who  need  to  know  the  external  characteristics  of  the 
Integrated  Noise  Model  and  its  internal  processing  in  order  to 
install  it  on  their  own  operating  system.  A  more  used-oriented 
description  of  the  capabilities  and  use  of  the  models  is  con¬ 
tained  in  the  INM  User's  Guide  (Version  2.4).  Also  available  at 
the  Federal  Aviation  Administration  (FAA)  is  extensive  prelimimary 
documentation  on  other  model  options,  the  algorithms  used  in  the 
models  and  individual  subroutine  characteristics.  It  is  FAA's 
intention  to  organize  and  publish  this  material  in  further  sup¬ 
plementary  manuals. 

Requests  for  information,  source  code  tapes,  manuals,  or 
other  assistance  should  be  sent  to: 


. . .  . . .  •■'•  •  . .  . . *  >  . . .  .t<i4  •.  *>  ,,  . . Iti . ilk;,  i*  a  - 1 ,(ju,'a  ' , .  . . . . 'iSaWEilli,]!, 


2.0  TAPE  CHARACTERISTICS 


The  INM  release  tape  has  the  following  characteristics: 

9 -track 
800  RT>I 
odd  parity 
EBCDIC 
Unlabeled 

The  first  14  files  are  blocked  using  39,  80-character  card  images 
per  block.  The  last  block  will,  if  necessary,  be  padded  with 
nulls  to  fill  out  3120  characters.  Files  15-19  are  blocked  using 
25,  132-character  line  images  per  block,  the  last  block  padded  to 
fill  out  3300  characters. 

Files  1  through  8  are  FORTRAN  IV  source  code 
Files  9  through  14  contain  input  data 
Files  15  through  19  contain  sample  output 

File  1:  VERSUN6,  the  Contour  Analysis  main  routine 

File  2:  GRID5,  the  Grid  Analysis  main  routine 

File  3 :  All  subroutines  called  by  VERSUN6  or  GRIDS 

File  4:  The  CALCOMP  -  compatible  contour  plotting  routine 

File  5:  The  ZETA  -  compatible  contour  plotting  routine 

File  6:  The  database  translator  program 

File  7:  The  database  formatted  listing  generator 
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File  8s  Input  Module 


File 

9: 

The  database 

File 

10: 

Example  input  data 

File 

11: 

Example  input  data 

File 

12: 

Example  input  data 

File 

13: 

Example  input  data 

File 

14: 

Example  input  data 

File 

15: 

Output  from  Case  1 

File 

16: 

Output  from  Case  2 

File 

17: 

Output  from  Case  3 

File 

18; 

Output  from  Case  4 

File 

19: 

Output  from  Case  5 

for  the  Contour  Analysis,  Case  1 
for  the  Contour  Analysis,  Case  2 
for  the  Grid  Analysis,  Case  3 
for  the  Grid  Analysis,  Case  4 
for  the  Grid  Analysis,  Case  5 


\\ 
I  = 
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3.0  INSTALLATION  INSTRUCTIONS 


The  following  instructions  are  intended  to  serve  as  a  guide¬ 
line  t<j  the  conversion  of  the  Integrated  Noise  Model  as  supplied 
by  FAA  to  another  machine  and  operating  system.  These  are  not 
intended  to  dictate  the  precise  nature  of  the  installation,  as 
each  installation  is  system-dependent.  All  references  made  to 
the  CDC  6600  and  its  operating  system  are  by  way  of  example  only 
and  should  not  be  construed  as  endorsements  of  those  products. 

3 . 1  INSTALLATION  PROCEDURES 

(a)  Set  up  the  appropriate  user  name,  charge  number,  or 
other  accounting  information  to  validate  the  run. 

(b)  Log  the  tape  supplied  by  FAA  into  the  system. 

(c)  Attempt  to  read  the  tape 

(d)  Verify  that  the  tape  characteristics  match  the  docu¬ 
mented  characteristics.  If  not,  try  other  character¬ 
istics  until  the  tape  can  be  read.  As  a  last  resort, 
contact  EAA. 

(e)  Copy  the  files  from  tape  to  disk  (optional;  disk  files 
are  more  expensive  but  more  convenient  than  tape) . 

(f)  Get  listings  or  dumps  of  at  least  part  of  every  file 
on  the  tape,  and  verify  that  all  files  match  their 
documentation  and  that  all  documented  routines  and 


files  are  present.  See  Section  7  for  the  list  of 
programs  and  subroutines  in  the  model. 

(g)  Put  the  source  code  for  each  subroutine  into  a  separate 
section  of  a  library,  so  that  each  can  be  accessed  and 
compiled  separately.  On  the  CDC  6600,  use  the  system 
utility  UPDATE. 

(h)  Check  on  known  compatibility  problems  documented  in 
Section  3.2.  If  necessary,  revise  the  machine-depend¬ 
ent  routines  CLOCK,  CLOCKT,  DATE,  EXIT,  SKFIL,  ZERO. 

(i)  Compile  each  program  and  subroutine  using  the  appro¬ 
priate  FORTRAN  compiler.  Correct  any  fatal  errors  and 
recompile . 

(j)  Examine  the  routines  for  obvious  incompatibilities 
between  systems.  Look  for  data  declarations,  sub¬ 
routine  calls,  use  of  Hollerith  strings,  printer 
control  characters,  external  and  system  routines,  and 
non-ANSI  code.  Correct  any  incompatibilities  found 
and  recompile  until  the  routines  are  error- free. 

(k)  Put  the  relocatable  code  into  a  library  so  that  each 
subroutine  is  accessible  separately,  thus  facilitating 
correction.  On  the  CDC  6600,  use  EDITI.IB  for  the 
relocatable  code. 

(l)  Try  to  load  each  program  and  its  associated  subroutine 
without  executing. 


(m)  If  a  program  is  longer  than  the  available  memory,  re- 

* 

structure  the  program  into  overlays. 

(n)  Check  all  loader  maps  for  errors  and  unsatisfied 
externals . 

(o)  Compile  the  data  translator  program.  When  compilation 
is  successful,  load  and  execute  the  program,  creating 
an  unformatted  version  of  the  system  data  base.  See 
Chapter  4  for  a  more  detailed  discussion. 

(p)  Get  a  listing  of  the  data  supplied  for  a  test  run. 

Check  it  against  the  format  required  by  the  model,  as 
documented  in  the  Basic  User's  Guide. 

(q)  Execute  the  programs  using  the  test  data,  debugging  as 
necessary  until  the  tables  output  from  the  model  match 
the  sample  output  provided  in  files  14-18  on  che  tape. 
Note  that  all  calculations  should  match  the  sample 
output  exactly.  If  not,  check  the  compiler's  rounding 
conventions . 

(r)  Set  up  whatever  programs  or  procedures  are  necessary 
for  converting  the  CALCOMP  plotters  file  into  a  file 
compatible  with  the  available  graphics  devices . 

Verify  that  the  test  plots  march  the  sample  plots. 

The  programs  currently  run  on  ZETA  or  CALCOMP  plotters . 

(s)  Set  up  the  final  version  of  the  relocatable  code  in  a 
user  library  or  as  a  file  in  whatever  overlay  structure 
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was  decided  upon.  Save  the  new  version  of  the  source 
code  on  tape  or  other  backup  storage  medium. 

(t)  Document  the  sequence  of  commands  needed  to  run  the 

model  and  append  it  to  the  Basic  User's  Guide  and  this 
Installation  manual.  Include  information  on  the 
model’s  space  and  time  requirements,  cost,  turnaround 
time,  and  system-dependent  limitations. 

3 . 2  CONVERSION  PROBLEMS 


Item 

No. 

Item 

Desciption 

Item 

Category 

1 

BLOCK  DATA  Initialization 

IBM  Restricted 

2 

Boolean  Operations 

Differences 

3 

Call  Statement  Parameters 

Extensions 

4 

Data  Initialization 

IBM  Restricted 

5 

ENTRY 

Differences 

6 

EQUIVALENCE 

Machine  Dependent 

7 

Format :  A 

CDC  Extension 

8 

Hollerith  Strings 

IBM  Restricted 

9 

Hollerith  Variables 

IBM  Restricted 

10 

Identifier  Names 

CDC  Extension 

11 

Octal  Constants 

Non- IBM 

12 

Non-ANSI  Subroutines 

Differences 

13 

PROGRAM  Statement 

Non-IBM 
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14 

RETURN  I 

Differences 

15 

Rounding 

Differences 

16 

User-Supplied  Subroutines 

Machine  Dependent 

EXPLANATION 

1.  Some  programming  languages  conform  to  the  rule  that 
common  block  variables  may  only  be  initialized  in  BLOCK 
DATA  subroutines .  The  code  may  contain  data  initial¬ 
ization  of  such  variables  in  other  subroutines . 

2.  The  model  uses  the  Boolean  operations  AND  and  OR  to 
extract  characters  from  data  words .  It  uses  masks 
stored  in  array  MASK  and  initialized  in  BLKDAT  sub¬ 
routine.  These  operations  should  be  machine  independ¬ 
ent,  provided  the  masks  are  converted  properly.  See 
No.  12  below. 

3.  IBM  FORTRAN  permits  passing  a  statement  number,  N,  by 
prefixing  an  ampersand: 

CALL  SUB  (A, B ,&10 , C ,&20) 

CDC  FTN  FORTRAN  uses  the  RETURNS  list: 

CALL  SUB(A,B,C)  RETURNS  (10,20) 

This  problem  will  occur  in  subroutine  PFILE  in  the 
CONTUR  program. 

Some  common  block  variables  may  be  initialized  in  DATA 
statements  outside  of  BLOCK  DATA  subprograms.  There 


4. 


may  be  common  blocks  whose  names  begin  with  numbers 
or  which  are  seven  characters  in  length. 

There  are  several  subroutines  with  alternate  entry 
points.  These  routines  should  be  checked  to  see  that 
local  conventions  for  passing  parameters  are  observed. 
The  model  passes  the  same  parameters  to  alternate  and 
main  entry  points . 

EQUIVALENCE  is  the  scourge  of  conversion  programming 
efforts,  since  machine  dependent  code  is  often  involved. 
Extreme  care  must  to  taken  to  thoroughly  understand 
the  word  boundary  alignments  which  the  equivalence 
forces .  An  effort  has  been  made  to  insure  that  all 
equivalences  observe  ANSI  standards. 

Formats  of  A6  or  A10  are  used  in  reading  and  writing 
data,  building  titles,  and  building  variable  formats 
(See  routines  HEADER  and  GRID) .  In  CDC  FORTRAN ,  such 
formats  read  data  into  a  single  word. 

Hollerith  strings  may  not  be  used  in  IBM  FORTRAN 
assignment  statements,  but  may  appear  in  the  model. 

Care  must  be  taken  to  declare  Hollerith  variables  long 
enough  to  hold  the  required  string.  In  particular, 
check  that  the  arrays  used  in  HEADER  to  hold  the  title 
information  are  the  proper  size  and  that  the  building 
process  assigns  these  variables  appropriately. 
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10.  There  may  be  seven-character  names  in  the  model, 
although  some  care  has  been  taken  to  use  only  six- 
character  names . 

11.  Octal  constants  may  have  to  be  converted  to  hexadecimal 
if  a  conversion  to  IBM  is  done.  Also,  the  length  of 
the  constants  used  must  be  adjusted  in  conversion  to 
any  non-CDC  machine.  These  constants  are  used  in  the 
Boolean  operations  discussed  in  No. 2  above.  There  are 
21  octal  constants  in  array  MASK,  which  is  initialized 
in  Block  Data  subprogram  BLKDAT.  The  length  of  the 
first  17  constants  may  be  adjusted  by  subtracting  (or 
adding)  zeroes  on  the  right  until  the  constant  will 
fill  one  word  on  the  machine.  For  the  last  four  words, 
adjust  with  zeroes  on  the  left.  This  adjustment  will 
work  as  long  as  the  machine  has  a  word  length  of  at 
least  23  bits.  If  the  word  length  is  smaller,  serious 
conversion  problems  will  result. 

12.  The  INM  assumes  that  system  routines  exist  to  provide 
the  data  (DATE) ,  the  time  of  day  (CLOCK) ,  and  to  end 
the  program  (EXIT) . 

13.  PROGRAM  is  strictly  a  CDC  convention,  used  to  identify 
the  main  program  name,  and  indicate  the  logical  unit 
numbers  of  all  input  and  output  files  used  during 
program  execution. 
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14.  CDC  method  of  returning  to  a  statement  number  passed 
through  RETURNS.  IBM  uses  *.  This  occurs  in  subroutine 
PFILE  in  program  CONTUR. 

15.  There  are  two  system  dependent  subroutines  which  the 
user  must  supply:  SKPP  (with  entry  points  SKPPFF, 
SKPPFL,  SKPPBL ,  SKPPBF)  and  SKPP1  (with  entry  point 
SKPPFX) .  Called  by  routines  SKFIL  and  SKREC ,  they  are 
used  to  skip  forward  and  backward  on  both  files  and 
records .  CDC  6600  assembly  language  which  interfaces 
with  the  Record  Manager  utility  is  provided. 


4.0  DATA  BASE  AND  TRANSLATOR 


Standard  aircraft  performance  and  noise  information  is 
stored  in  the  INM  Data  Base.  The  contents  of  this  data  base  are 
presented  in  the  Data  Base  Report  (Report  No.  FAA-EE-79-11) . 

This  data  is  supplied  by  the  FAA,  along  with  the  INM,  in  the  form 
of  a  FORTRAN-readable  formatted  data  file.  However,  the  INM 
programs,  for  reasons  of  both  efficiency  and  security,  read  an 
unformatted  version  of  this  data  file.  It  is  the  installer 's- 
responsibility  to  create  this  unformatted  data  file.  To  this  end, 
FAA  is  supplying  a  FORTRAN  data  translator  program,  which  will 
read  the  formatted  data  base  from  magnetic  tape  and  will  create 
the  appropriate  file  on  disk. 

The  program  expects  that  the  formatted  data  base  will  be 
input  on  logical  unit  number  3,  and  it  writes  the  unformatted 
version  to  logical  unit  4.  The  unformatted  data  base  is  intended 
to  reside  on  disk;  it  should  contain  fewer  than  7000  words,  so 
that  storage  costs  will  be  minimal.  It  is  recommended  that  the 
translator  program  and  the  formatted  data  base  be  kept  on  a  back¬ 
up  storage  medium,  such  as  tape  or  cards,  as  there  will  be  little 
need  for  them  once  the  unformatted  data  base  is  installed. 


The  formatted  data  base  is  used  by  the  INM  Selective  Data 
Base  Printing  Program  (INI-IPRI)  .  The  formatted  data  base  is 
input  on  logical  unit  4  (OLDDAT) .  The  print  control  cards 
(see  Section  2  of  Data  Base  #5  Report,  Volume  1)  are  input 
on  logical  unit  5  and  the  program  writes  the  data  base 
listing  to  logical  unit  6.  Like  the  data  base  translator, 
the  data  base  listing  generator  is  written  in  ANSI  FORTRAN. 


5.0  PROGRAM  DESCRIPTION 


The  Integrated  Noise  Model  provides  two  general  capabil¬ 
ities:  The  grid  analysis  program  predicts  noise  values  at  user 
specified  locations  and  the  contour  analysis  program  produces 
the  coordinates  of  points  defining  a  contour  of  a  specified 
noise  level.  To  create  a  contour  map;  i.e.,  read  the  coordin¬ 
ates  from  the  contour  analysis  output  and  plot  them,  one  of  two 
plotting  routines  may  be  used.  The  two  programs  provided  on  the 
INM  tape  are  compatible  with  ZETA  and  CALCOMP  hardware,  respec¬ 
tively  . 

The  above  programs  are  written  in  CDC  FORTRAN  IV  with  two 
COMPASS  3.0  assembly  language  subroutines.  These  subroutines 
use  the  CDC  Record  Manager  for  file  positioning.  The  above 
programs  use  the  following  I/O  units  in  the  following  manner: 

Unit  Purpose 

2  Output  from  the  contour  analysis  to  be  input 
to  a  plotting  routine 

3  Scratch  file  used  for  storing  flight  informa¬ 
tion 

5  Input  data  file  (INPUT) 

6  Lis table  output  (OUTPUT  -  except  in  ZETA 
routine) 
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Unit 


Purpose 

7  Database 

8  Plot file  output  from  CALCOMP  routine 
The  ZETA  routine  writes  the  plotfile  to  OUTPUT. 

The  database  is  provided  in  lis table  form  (File  8  on  the 
tape).  For  reasons  of  efficiency,  however,  the  INM  reads  the 
database  from  a  binary  file.  This  file  is  created  using  the 
database  translator  program  (File  6) .  Here  unit  3  is  used  to 
input  the  database  as  it  appears  on  the  tape  and  unit  4  is  for 
the  binary  output  file. 

To  produce  a  labeled  report  of  the  contents  of  the  database, 
the  database,  formatted  listing  generator  (File  7)  is  provided 
in  the  tape.  With  it,  one  may  request  individual  data  sets  or 
all  data  sets  associated  with  an  aircraft  type.  Input  to  this 
program  includes  the  database  as  it  appears  on  the  tape  on  unit 
4  and  a  set  of  user  commands  on  unit  5.  (See  Appendix  of  User's 
Guide.)  The  output  listing  is  produced  on  unit  6. 
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6.0  FUNCTIONAL  AND  LINKAGE  DIAGRAMS 


Figures  6.0-1  through  6.0-5  depict  functional  and  linkage 


diagrams . 


*  , 
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FUNCTIONAL  FLOW  DIAGRAM  FOR  THE  CONTOUR  ANALYSIS  MODEL 


VERSUN6 


FIGURE  6.0-3.  FUNCTIONAL  FLOW  DIAGRAM  FOR  THE  GRID  ANALYSIS  MODEL 


FIGURE  6.0-4.  SUBROUTINE  LINKAGES  FOR  THE  GRID  ANALYSIS  MODEL 


FIGURE  6.0-5.  SUBROUTINE  LINKAGES  FOR  THE  CONTOUR  PLOTTING  SYSTEM 


7.0  SUBROUTINE  DESCRIPTIONS 

This  section  contains  a  brief  description  of  each  of  the  routines 
used  in  the  three  programs  of  the  Integrated  Noise  Model.  These 
descriptions  will  include  each  routine's  purpose,  call  sequence, 
entry  points,  returns,  external  routines  called  input,  and  output. 
They  are  presented  in  the  following  order: 

NOISE  main  program 
GRID  main  program 

Subroutines  called  by  NOISE  and  GRID,  listed  alphabetically 
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Main  Program  VERSUN  6 


v*'Tic”  'vsp'-  s : 

■•*»*  "•*"  is  vj  official  standard 

r:#** .spa.-:  p^ij  calcdlat:.;  aip^cpt 

i***>*..  •*  i arm  "ir:is,  deletions  afe  aptm^piced  to 

••*«•  'j-i'v  ;<mipce  err**;  kxcfpt  7, pp>  nv  thp 

<•*«■  -ffiotaltv  uii:sTO"ATKr>  revisions. 

.  • 


-  -ms  ts  fv  1  «:o*> ?; n  noise  vcopl  vfrsicn  01.00. .m, 00 

vs  «  f  **  *^  y  •« 

.•  ::m*:  i>nv;i»Aw  ***rcisEi*** 

r  tvs  to  i*Krspt-SD  t'  vmk  nt  ock  f*  of 

-  nMi»ir  appealing  in  r’-iinp  documentation  fcp  acumrlets 
c  ; vFvvrrw  :f  s,,n',r,jrr,,n  cat’s,  pie  sudroutinb  cams 

<•  -‘An::  cikck-ly  py  wisri  involve  the  following 

.•  •_  1-  'ii'  |  .;r-;  . 

n,*,p®cxir.Arn:.Y  tk  order  cf  appearance} 

i'  O’TF  EXT-  1^’D  '*<’!?  A 

v^-fix  prADit:  ct.cck  header 

-  Yi:>.\'r  ’’WANDS  PVT  VTf'V 

-  p’TN'v  vsvn  ppi-m  clock-:* 

^  7*nn  vva.'J  vr.c’  spawn 

1 1 1) :  s  r 

r  :-rrr,y.i  t.;  called  ?y  no  '•-ho?  dr'g.-am. 
r  r: ^ t r :  s;j:n'*7Tv*s  first,  *vn  vfai»v?  act’»at..y  y 

-  * " c a 7 e  m''u  ccnt-up  expcsp  determines  exposures  at  these 

-  POINTS.  SRK  PAGE  2-P?  Or  WYL  E  FEPCPT  ( PROGRAMMER":?  MANUAL) 

~r  t  rs  t!(F  ACCEPT  A  U7  E  DT  F  FEE  E’*CF  IJI  EXPOSURE  BETWEEN  TWO  POINTS. 

r  -||P  FOLLOWING  AP  T2KS  ICC  A’  VARIABLES  tJSED  IK  NCTSE1. 

URCPF-GTCFAGE  FOP  AIRCRAFT  CE  FI  NATION  RECORDS 

-  V«AXPT  -  "SEP  PROVIDED  MAXT.M"M  *  rj?  POT  NTS 

c  hannep  -  ■v*rr,,,T  title  see  data  statehekt< 

P’^CP  *  DAPPER  F~R  DATE 

T  PEfops  -  DEF.V?T  T  0P2PATICS:»  SEE  UI  OCK  DATA< 

r  PE  FT  CL  -  DEPVJTT  CONTOUR  TOLERANCE  SEE  BLOCK  i)ATA< 

PEFTCT  -  DEFAULT  TOT  A’  OPS  SEE  CLOCK  OATA< 

D  £«■'.' .A*  -  UEFA*'*  T  Cr'IT'PP  VAIO’E  SEE  BLOCK  D ATA< 

C  PELS  -  MAXTK'MI  ALW  A3L E  DISTANCE  BETWEEN  CONTOUR  POINTS 

IT  ACT*!  -  INTERMEDIATE  RES'ILT  IN  DEFAULT  STEP  SIZE  COMPUTATION 
r  SI  AD7  -  LAST  CO.rn,JTEU  UNIT  OP  AD  I  ENT  VECTOR  COMPONENTS 

C  r-C^’!T''MP  INDEX  CP  CONTROL  FT  AO 

'•  ir«~  -  FIPST  0  CHAV ACTEPS  CONTROL  TAPE/HOTAPE  FEATURE; 

C  P^XATNOER  IS  DVBFER  FTP  ECPEn  USER  COMMENTS.  TH 

O'tlER  ROUTINES  IDENTICALLY  NA^ED  ARRAYS 

-  COS'"  A  IN  T' MERIC  INFORMATION  PEAD  IN  PROM  DATA  CARDS. 

r  TCON'-’i  -  FLAG  F^R  END  OF  AIP  C!’  AFT  DEFINITION  RECORD 

r  ID'*  MPC  -  FXEC,,TI  VE  CTK-rpOI  FIAG;  0»  EP  ROP,  - 1 »  PLOT,  ♦■CONTINUE 

r  IP'*NPR  -  " DUMP  "  !  ASCII  CO.NPAPISCN  STPIHGS  FOR  CONTROL  WORDS 


7-2 


n:nrm  -  "LDim  ••  ! 

rnnp'ip  -  dump  flag:  '>=!!''  dump,  i=shopt  dump, 
i=fu:l  dump.  :=  f"ll  dump 

nr  -  ERROR  FLAG  F-PP  SURP.CUT IS E  METFIX  (NONZERO  =  EXIT) 

IPAGE  -  PAGE  COUNTER  ! 

IPSTS  -  NUMBER  CF  CDNTOURS 
1ST  -  CONTROL  WORD  (START,  EDIT,  D"KP,  ETC)  BUFFER 
TUT'' P  -  "END  "  ! 

IGTET  —  "STAr'"  ! 

ITAPS  —  "TAPE  "  ! 

X7T^t  -  OUTPUT  TTTT  N 
I"*?  -  TRACK  M?*BF« 

TTRU  -  TRACK  GRC»<P  MEMBER 

I^T  -  FLT’iilT.S  "'SED  TO  FIND  LATEST  CONTOUR  POINT 
TX  -  FLA.;,  SWA?  POINTS  AT  CONT"'"!!  CLOSURE 
IX POT  “  POINT  COVN^E? 

LTNCU1  -  ’  INE  Cnj’ITE"  !  CONTP.OT  APPEAFARCE  OF  PRINTED  OUTPUT 
~  -  VAST  p’G'p  INDICATOR 
LPT  -  LAST  rCTNT  IUDICATCF 
’! A X n IS  -  TNTERN'LTY  CONFUTED  ETC 
NET  LEV-  VALUE  CF  CUP  J  EM”  NOISE  EXPOSURE  METRIC 

-  p  _  •»  v  ^  r  ii  i 

".■.RE  -  PLOT  CONTROL  VARIABLE 

vFFOT  -  cr 'PDI’JATE  POINT  N"X RER  (ON  OUTPUT  PA'.E) 

MRV*  -  EXPOSURE  AT  C"n?  ENT  Cr‘NTO,,R  POINT 
NUTATE  -  "NC'T*AnE"  I 
'•pi  tj-  .  p* 'Ittti;-  pprlDN  CCN”ROI  FT  AG 
NPI  T  -  CONTOUR  CC'JNmEP 
•;pv  .  p"»'v  s  v  *>”,13ER 
N”.'1PP  -  PPIEARV  MET-,IC  NUNDEP 

**YS  -  TME  ;PEF  PF  ,rIvFS  THE  SUBROUTINE  EXPOSE  ’IAS  BEEN  CALI  ED 
"'"IT  -  PERCENT  OF  ’'OTA*  NOISE  REPRESENTED  3Y  FLIGHTS  INCLUDED 
I”  FTP'-SUR*  COMPUTATION  OF  CURRENT  CONTOUR  POINT 
P" T *’ S  -  DEFA''L"  NTTE0  OF  PCIlirs  IK  CCNT'UF 
-  coords  or  last  .;~'d  point  on  ccnt-ui. 

p-T-CCORDI "AXES  CF  FT  "S'*  PCTN"  FOUND  CK  CCNT''JR 
’vv.  t  AS  PX  r'.  'I IV  AT  ENCFD< 

*.)  -  FIRST  GUESS  AT  PVS1  TI^N  or  vrw  cONTrup  POINT,  CONTAINS  NEK 
ON  PETS'1"? 

V*  -  A*  IAS  FO ;  U;, fix's  U»'ESS  AT  FIRST  Pr  INT  ON  C?NT',"'P 
PX-  "'SEP  TN?J""  CCN^OJP  END  pr^’.’T 
S-.ro;  -  SLAU”  "AN. TEG 

STEPS  -  PEFADTT  N','<3ER  nF  STEPS  IN  CONTOUR 
;  •>  -  ELAPSED  TIXE  I”  PRO  J  LA"* 

"O'1  -  C C ”mC"  P  ERR"1!;  m  FRANCE 
-  SPARE  C.'PY  OF  ”01 
.ijt  _  ‘  E"E*  DRC 

XX  -  ilIST'NCF.  FROM  "T  AiiT  P-"<INi""  ON  CCNTCP  TO  SMARTIN';  POINT 
vf  -  VECTOR.  DISPLACEMENT  PET  VEEN  ST  ART  IKS  AND 
r*" PI*" A  CO”Tr-*p  n/"INTG 


t?".x  c'c**xr?:  hllcx  cr~ss  "no?  e'cl  list 
t;:i"/  -  ’’’I'-isi.a* 

/A SDS~V  -  M.rcK  DAmA,  ASDT  ,  LOAD,  ASDTTH,  ASJSP.CKBETW 
/ASDSPL/  -  UL'TK  DAT*,  "WAY,  ASDI ,  TIHISI,  LOAD,  ASU2TH, 

IF  APT",  ASDS"',  AS  D;>2G,  CK3ETV 

.! ntr/  -  RI7CK  DATA,  "."EVPNT,  SIFT,  ASDT,  LCAD,  TCLRD,  EXPOSE,  ASDPTM, 


7-3 


. . . . * . . . . . . 


n"fz/  - 

/const/  - 

/DLF.VT/ 

/DTPVTY/ 

/exapp/  - 

/gradst/ 

/soonx/  - 


V MAS,  VSCL,  VS’IR,  V  T  Bl! ,  V"KT,  HBT, 

-  31  "CK  DATA,  '.SOT ,  LOAD,  AS D?TH,  PPG 

-  AS  D” ,  LOAD,  SSD?TH,  AL,  CKBETK 
■  ASDT,  TOAD,  ASC2TI!,  AT,  CKBETK 

-  XSVPHT,  .ASDT,  TOAD,  ASD2TH,  GRADIE, 
ASDT,  LOAD,  ASC2TH,  ASDS7G,  CKBETK 


PIRST,  NUASDS,  CKBETK 


/TRDDTK/  -  ASDT,  LOAD,  EXPOSG,  EXPOSE,  ASD2TH,  GRADIE,  ASDS2,  ASDS2G, 


TV»SDS,  CKBETK 


/G  PACT/ 
/TCnPS/  - 
/“F*"  SIC/ 

/VI XDT* / 
/•SCI SB/  - 

/PR^FIL/ 

/PRf  F”I/ 

/PLrTBL/ 
/P’OTR/  - 
/’’ES.ALT/ 

/t>::ka  y/ 

/PVYOTL/ 

/SCRACH/ 

/TSnOOP/ 

/Tiny  k/ 

/TTTIE/  - 
/TRACK/  ■ 


/7FAFTK/ 

/VECCT.K/ 
/V  !“•>/  - 


CKBFTB 


AS  US'S 

-  BLOCK  DAT A,  S2TRES,  TPRCF,  PROFDA,  PPEPR,  PKCSET,  SIXRD, 

' SDT,  LOAD,  PVYRD,  PROFPD,  APPTRD,  EXPOSE,  ASD2TH,  CKBETK 

-  PREPS’,  PROSET,  ASDT,  TOAD,  EXPOSG,  EXPOSE,  ASD2TH,  AS3S2, 

CKOE  rw 

-  TIIITSI 


CKBETK 


JFPPD,  °PE?E,  KIXPD,  ASDT,  LOAD,  EXPOSE,  ASD2TH,  CKBETK 
BLOCK  DATA,  TIHISI,  ASDT,  LOAD,  HBT,  EXPOSG,  EXPCSE,  ASD2TH, 
::r\DlE,  AS  OS  2,  ASDS2G,  FIRST,  KKASDS 
ASD-,  L^AD,  AS C2T II,  ?PC.R“,  CKBETK 

BJ^CK  DATA,  COST;;,  3PPFD,  IIEIG,  CVHLAY,  PREPR,  BIXR  D,  ASDT, 
•'•■AD.  P"YnD,  XT.  Ill  E,  BBT,  EXPOSG,  EXPOSE,  ASD2TH,  ASDS2, 

C‘'B  £tj 

SIRT,  TIXPD,  ASDT,  T  OAD,  EXPOSG,  EXPOSE,  A5D2TH,  ASDS2G, 
CKBETK 

PLCCK  DATA,  TIHISI,  ASDT,  LOAD,  ASD2TH,  PCSCCC,  CKBETK 
PF™,  ASDT,  TOAD,  KISJDPD,  AS  DOTH,  CKBETK 


tup  FCLTraEC.  IS  \  S‘ISTA®Y  rF  All  CD K HOD  VARIABLES 

•ppea»i::g  riiR?"0H-Tr  tmk  i::m  ?acfagk»»»»»»»»»»> 

/'.LISSTT/ 

"P  -  A I DC- AFT  thrust  SEt-IS  ; 

IP  -  AT. ’’CP AFT 

/ISDS’’’?/  -  PARTIALLY  INITIALIZED  BY  ASDS3TH 
-in  -  "SET  DFFI'IED  ASDS  OHESHOLO 

♦•■s’"!  -  of  dose  thresholds 

-  '\s E:|  PEFI',ED  IV' S 7.  TH'iESUO''  DS 
D -  -  -SEA  DEFINED  DOSE  ”IVES 
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/Anns pi/  -  as  prof  generated  iv  pfepp  '  ~ 

iSPtf'F  -  FT  13  U;'  PERFORMANCE  PROFILE  FOR  A/C  TYPF  OF  CURRENT  FLIGHT. 

*r T :i I T.  '"-JIFISS  this  profit  f. 

OTST'NCES  APE  ALWAYS  MEAS-RSD  I"  FEET  FROM  TUP.  RUNWAY 
TAKEOFF  T:ii'F.SHrit  D. 

nCT.  -  PETER  MI '.’ES  312 S  OF  NEXT  TIME  I NCR EMENT  (1  -  F  DB)  . 

S’!'''  F!»  PCI  TKC"E'.SC!>  RESOLUTION  SCCMPUTIK3  TIME. 

TS3C  -  AVC  "HER  CHECK  FOR  <rIME  STF’’  SIZE.  M:JST  NOT  BE  <1. 

*  ?  KG"  P  TSSC  MEMOS  ’  A!!  IEP  .VIPS  IN  NC-TSE  I  KV  ET  ,  POORER 
P|.-Ct  SEE  KYLE  REPORT  OP  SC'PCE. 

•»T::r  -  I  NTT. A*  "IMP  INCREMENT  IN  SECONDS 
PMIV  -  S  MATA  PS*  All "  <A3IE  TI”E  STEP 
Dv.-yr  -  -  AUGR'VT  AT  ’  C";  ART  F  TIME  STEP 
TMir  -  S'*. MI  TEST  .ALLOW  A  DIE  REAL  TIME 

'"■*?. x  -  t\p  ;rst  at.:  "vab-  r.  r.  .at  time 

'■•'paa  -  A»:;"iAr  vf.ioci-y  in  ra disks  per  sec  with  which  .a/c 
is  aiicwej  tc  c*i its  nose- up  and  basking  ahgies 

VTH  -  THRESH?- D  V»;  ‘IPS  F'-R  WHICH  EXCEEDANCE  rl.MPS  Will  OF. 

CAT  CHAFED.  VM**ER  OF  "1ESP  =  STH  IK  /THBLC-K/ 

T''T.A:t  -  TATT.T  TIMES  "VPR  K'JICH  TIHTSI  HAS  C.ALCUI  AT  ED  EXCEEDAKCES 
■••spsr  -  TVES'.i''-  D  IEVET  EXCEEDANCE  TIMES  FOR  2ACH  OBSERVER  (SECONDS) 

EKEEGY  -  *CCU M”IAT EP  VISE  ENERGY  ABOVE  LOWEST  THRESHOLD  LEVEL  (ONE  FLY3Y) 

/i’K/ 

'  -  CoiNTo-JR  '■RR'in  TOI  FRANCE 
TCI  -  SPARE  COPY  OF  T'LI  CLOBBERED  SOMETIMES< 

XW  -  VAT.  '.TVS  C-'MTRTB-’TIORS  FROM  All  DEFINED  FIIGH?S<  PLUS 
CONTRIBUTION  FP-ia  SIGNIFICANT  FT.IGHTS< 

WA1  -  CCNTC’F  VALUE  LEVPK 

T'ir y i  -  roisr  courruvricK  of  significant  flights 

•’YS  -  RECORDS  VI  BEE  "F  TIMES  THROCGH  EXPOSE  OR  FOR  CURRENT  CONTOUR  POINT 
TPPPCP  -  E°R'P  FLAG 

T.'ittrp  -  PROXIMITY  TO  CONTC'*? , FACTOR  USED  FCR  10CP  CHECK 
COKPUT ATI  O’l ,  USED  ONLY  IF  SMALLER  THAU  TCI2 
TCT  GIG  -  NO  * ""GER  USED 

/I’LKV 

r’  ITEP  -  FIT-3HT  PATH  INFCT* ATIOK 
IF  THE  FIRST  INDEX  IS  THE  CONTENTS  OF  FLITEP  ,  <  IS 

1  0.  FOR  STRAIGHT  SEGMENT 

*.  FOR  CIRCULAR  SEGMENT 

-  STFAIGHT  -  X-COORD.  OF  SEGMENT 

staptim;  pctnt 

CIRCULAR  -  X-COORD.  OF  TURN 
CENTEP 

STPAIGHT  -  Y-CDORD  OF  SEGMENT 
START  POINT 

CIRCULAR  -  Y-COORD  OP  TORN 
CENTER 

•'  STFAIGHT  -  LENGTH  OF  SEGMENT 

CIRCULAR  -  RADIUS.  POSITIVE  IF 
TllRNING  LEFT,  NEGATIVE  IF 
TURNING  RIGHT  LCOKING 
IN  A  DIRECTION  AWAY  FR03 
THE  RUNWAY,  I.E.  AS  IF 
IT  WERE  A  T/0< 

STPAIGHT  -  X-COKPONENT  OF 

UNIT  7LCTCP.  IN  DIRECTION 
OF  StOMSNA 

CIRCULAR  -  T-J?’J  »  ’GLE 


mnnoonoioTi  >  n  n  n  n  n  n 


1 


<-  -  STRAIGHT  -  Y-COORD.  OF  UNIT 

r  VECTOR  IR  DIRECTION  OF  • 

r  SEGMENT 

c  CIRCULAR  -  ANGIE  SET HERN  LIHE 

c-  FROM  THRU  CENTER  TO 

C  SEGMENT  START,  WITH 

C  POSITIVE  X-AXIS 

c  7  ALTITUDE  AT  SEGMENT  START 

•'  «  SPEED  IN  KNOTS  AT  SEGMENT  START 


THRUST  OVER  SEGMENT  IN  LBS/ 
ENGINF 


/O0"ST/ 

TR  -  3.  ’  li  ' 


<-  /L>£"ALT/ 

C  IF’  PEF  -  C“PP E'”'  ft:.:;  INDICATOR 

'  OEF'r'  !  -  OMIT  TC'rAI  CPLn  ATT'N.’S 
^  STEPS  -  OMFAU'T  NUT  HER  ,'r  STEPS  IK  COVTTUR 
<•  PUTT'S  -  DEFA'iL'1'  If’EJEF  OF  POINTS  IN  CONTOUR 

r  deft-":  -  oepa"tt  cpntc'»°  to’  erancf 

<■  OEFOPS  -  DEFAT’ T  OPERATIONS  OUESTICN  SARK<  NEVER  USED< 

C  or^VV  -  DEFAT  T  CONTOUR  Ti'.P  ESH^LD 

r * 

c  /DIFVTY/ 

0  DC  -  PTrSCTIVm  CHARACTERISTICS  of  a/c  noise 

'*  OfAT.PII  A  -  ALPHAMERIC  .AIRCFAFT  EKGIKEX  TYPES  TO  WHICH  DC  RELATE 

r 

T  /EXS  Pn/ 

O  •»?  -  Cf'EFFICTF"TS  PT  Fl'NCTTC'’S  DESCRIP.ING  EXCF.SS  ATMOSPHERIC 

ABSORPTION  CF  NCTSS  FOR  EACH  AIRCRAFT  TYPE 

/SR  AD’—/ 

SR  AD”  -  :  AST  COMPUTED  UNIT  GRADIENT  VECTOR  COMPONENTS 
DE^IY  -  ST AE  AS  0°ADM3,  GRADIENT  MAGNITUDE 

/SFDRpf/ 

AST ANS  -  ASDS  M^OE  TI  CUMULATIVE  TIME  A  GOVE  THRESHOLD  BY  TRACK 
Rsp  Ml  FLIGHTS  (FHr'v  TRISI) 

(1 ,N)  =  ”E0UFSTED  T/’ 

C.TI  =  -  10  DB  FROM  REOUESTED  T/A 
ASIANS  -  AS  AST AKS  FPR  ASDS  MODE  III 
AS'MN  -  MINIM"’'*  THRESHOLD  -  ASDS  MODE  II-X 
AST  MX  -  MRXIM’LR  ETC 

SS3MN  -  MINIMUM  Til  RES  HD’  D  -  ASDS  MODE  III  (DOSE) 

AS’MX  -  MAXT"»M  ETC 

/GRDDL K/ 

AS2ANS  -  ASDS  NOISE  EXPOSURE  VALUES  FROM  CALLS  TO  EXPOSE  BY  GRADIE 
BEHAFE  -  TDF.NTICAT.L.Y  WAMED  VARIABLES  IN  UR2BtK< 

A  SPANS  -  DTSF.  EXPOSURE  VALUES  FROM  GRADIE 
AS2*3  -  MINIMUM  THRESHOLD  -  ASDS  NODE  II-X 
ASPMX  -  MAXIMUM  ETC 

AS3MS  -  MINIMUM  TURESHORLB  -  ASDS  MODE  III  (DOSE) 

C  AS’NX  -  MAXIMUM  ETC 
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/GRD'H,'V 

P'lINT  -  COORDS  OF  CURRENT  C'iNTOPR  POIKT  FOR  EXPOSG 

ASDS7R  -  CUMULATIVE  SUMMATION  OF  TIKE  ABCVE  SIX  THRESHOLD  FOR  3 

DEFINED  TIBS  PERIODS  (INCLUDING  CURRENT  ORE) 

OTHERS  -  ESTIMATED  VALUES  OF  OTHER  HCISE  SETRICS  AT  CURRENT  POINT 

ASDS7I  -  T/A  FOR  g  THREStlCLDS 

F"R  :  TTME  PERIODS  FOR  CURRENT  FI IGHT  ONT  Y 


/’  OOPS/ 

nc  -  FTPST  GUESS  AT  POSITION  CF  NEW  POINT;  HER  POINT  ON  RETURN 

PIS  -  COORDINATES  OF  PRESENT  TRIAI  CONTOUR  POINT 

PUK  -  COORDS  OF  POSITION  CF  VAL?  CONTOUR  SEARCH  TEST  POINT< 

V  -  SIGN  OF  EXPOSURE  VALUE 

V  AT 1  -  PREVIOUS  TUIAX  EXPOSURE  VAJ"E  FOR  CURRENT  "POINT" 

V ALT  -  LATEST  "RIAL  EXPOSURE  FOP  ETC 

D  -  DISTANCE  BETWEEN  CONTOUR  POINTS 

/METR IC/  -  INITIAL  TEED  BY  MSTFIX 

NMET  -  BETPIC  RUBBER  2**I'!^EGER  KUSBER  CF  BETRIC  IN  STANDARD  LIST< 
A"A'S  -  TABLE  OK  EXPOSURE  VALUES  AT  CONTOUR  POINTS 
FOR  "ETRICS  rTKER  THA”  PRIMARY 

PPMFCT  -  VALUE  SUBTR AC" ED  FROM  FINAL  SUBBATIC-N  OF  STNGLE 
EVENT  NOISE  EXPOSURE  APPLIES  TC  PRIMARY  METRIC< 

ALTFCT  -  APPLIES  TO  ALTERNATE  ETC 

P"MKE  -  EVENING  WEIGHTING  FAC^OP  FOR  PRIHARY  METRIC 
PPM'.F  '  NIGHT  WEIGHTING  FACTOR,  PRIMARY  BETRIC 
ALTVe  -  MULTIPLYING  FACTfr  if  ALTERNATE  BETPIC  IS  HEL 
AT TWO  -  EVENING  VI2GHTINS  FOR  ALTERNATE  BETRIC 
AItWN  -  NIGHT  U SIGHTING  FACCR  FCR  ALTERNATE  HETnlC 
N''MPP  -  PRIMARY  MFTPIC  Nn BBER  NOTSE  MEASURE  USED< 

1-NEF,  2=L3S,  •5=CNEL.  u  =  LEj,  5=aSDS.  g  =  DOSE 

*’  NBA  IT  -  FLAG  ARRAY  INDICATING  ALTERNATE  METRIC  NUMBER 

MFT’IG  -  NAIF  OF  y  OTSF.  METRIC  ASCII  LITFRAI  < 

MUTLEV  -  BETRIC  LEVEL  NEVER  "SED< 

/MTXDTV 

I A  -  NUMBERS  INDICATING  NCISE  CUPVE  SETS  AND  PERFORMANCE  PRCFILES 
prp  -ip  t.-  r3  x/c  TYPES; 

r,  n;  NOISE  CUPVE  SET  "UMBER 
p;  PROFIT  E  FCR  •*>  -  LOO  NAUTICAL  MTLES 
I;  «  T00  -  1000  " 

"  ion  -  iruo  " 

•<  150a  -'"00  " 

e  :  2  =  0G  -  ■”'00  " 

7;  "  2500  -  -'500  " 

e ;  "  "c01  AND  GREATER 

NAMES  -  NAMES  r'T  A/C  TYPES  (N’ESTTOR  MARK< 

MAC  -  LARGEST  AIRCRAFT  DELIS'  AT  ION  VUH3ER  IN  CASE 

"ALLY  -  CUMULATIVE  'PER ATICNS  FCP  D/E/tl,  LANDING  AND  7  TAKEOFF  STAGES 
I’CHAC  -  TABLE  ->F  AIRCRAFT  TYPES  FOE  TIHIST 

/"OISF/ 

SL?  NG  -  SLANT  RANGES  (LC G AnITHHS  INTERNALLY,  BUT  TNPUT  AS 
r.fs-  NUMBERS) 

GRAND  A  -  GRC*"JD  ATTE'ITUATT'M 

P-RG  -  AIRCRAFT  TMVS-  TAELE  (PrVER  SETTINGS  FOR  NOISE  CURVE  SET} 
V’OTGF  -  S?t!L  O' TA  fcp  NCISS  CURVES  (AT  UP  TO  , 

A»”H:?F  -  KPN’  DAm.A  F”R  NOISE  CUPVFS  (AT  UP  T"  8  DISTANCES) 

r> 1  c  -  r*MDEr  rr  defined  aipc'aft 


IllMlUlk 


m  I 


B’^tsk  -  noise  curves,  okel 

_—-:TPS  -  ■’’A3’  E  *>F  CUTOFF  DISTANCES  ABOVE  WHICH  FURTHER  NOISE  COMPUTATIONS 
?EFF''r!'!ED 

/PP?FIT / 

*PPTH«:  -  AIPCRAFT  THRUST  SETTINGS  TABLE 

MATCH  -  TART  OF  AIRCRAFT  TTPES  REFERENCED  BY  PROFILE  NUMBER 
/PPPFMT / 

•>!>  -  ppOFILS  PEST**  10 r tors 

■’S BBS  -  .IFF?  OF  SEGMENTS  IK  PERFCKM ASCE  PROFILE 
~'PT  -  irniCA-'S  TAFEOFr  (♦1.0)  rp  7A8DINO  (-1.0) 

S*F  -  S*  ANT  P\”OE  {DtS'r\NCE  F?OS  ANALYSIS  POINT  TO  AIRCRAFT 
CLOSEST  APPROACH) 

TTYPF  -  An?F" ACM  PBCFILr  LOOK-P  APS  (A/C  TYPE) 

/PLOTPL/  -  FIT  ED  BY  TIHISI  IF  NPLP  IS  PCSITIVE 
KK  -  K“*'RE'1  oc  -'OT'ITS  TN  THE  ri/.F  HISTnRY 

i'-.;pl  -  sound  arrival  "■ikes  ( seconds)  .  kcrds  &-ji,402  are  plot  scale 

•  LPT.  -  A  -  WEIGHT'D  NCTSS  LEVELS  (DR)  CORRESPONDING  TC  TGPL 
C'-'t>U  _  a/C  POSITION  AKD  CPI  ENT AT ION  CORRESPONDING 
Vr  T-GPL,  AS PI.  SECOND  INDEX  BEAKS: 

'  - K  **  -  Y  CC'Dfl# 

•>  -  A  SOLE  IK  RADIANS  "F  A/C  LOGIT»»DIKAL  AXIS  KITH  PCS  X  -  AXIS 
/•’T.CTfi/ 

TPST?  -  S'lBRF.P  op  CONT'ORS 

bet s  -  rAxrann  allowable  distance  between  contcdp  points  (search) 

EPLCT  -  r’HBF.P  OF  T/'TS  riYSICAILY  OlSTIKCT  QUESTION  HARK« 

X’P  -  AREA  ACC" *5* ATOP 

?,  _  c?c;?DS  op  LAST  GOOD  POIKT  CK  CCSTCUR 
PSCATE  -  P’CT  SCAT  E  FACTOR 

/•? FS A’ T/  -  PARTI AT.T Y  INI? IV  TIED  BY  SETPES 

KTAR  -  PPCCED1PE  KINDER  ADA  "'EBERT  TYPE<  ASSIGNED  TO  ECH  TRACK 
E'*DR  -  DISTANCE  A’ TNG  trjcK  TC  ERD  CF  RESTRICTION  INDEXED  3Y  RESTS  • 

STB  -  DISTANCE  AT  o;)G  TRACK  TC  BEGINNING  OF  PESTriCTION 

TOUT  -  TABLE  OF  RESTRICTION  TYPES  IKDEXED  TO  OEGSTR,  ORSEBD,  BTC< 

'*oise  abatement 

r.cnv.  -  tab1  e  of  ctback  cltbb<  gfadierts  input  takeoff< 

IOPKCO  -  CUTBACK  RODE  OVERRIDE  ARRAY 

SKDATT  -  ALTITUDE  AB^VE  GRCUHD  AT  ERD  OF  TAKECFF  RESTRICTION 
“PGSTR  -  DTSTARCE  *?'*?  BRAKE  RET  FAS E  POINT  WHERE  TAKEOFF 
"SSTPICTICNS  BEGIN,  INDEXED  3T  "RESTRICTION  BOBBERS" 
rr.JEKD  -  ETC  WHERE  RESTRICTIONS  ERD,  GLSC  IKDEXED  BY  ETC 
fi".*!**  O' RTSS  OF  5  BAT EM ENT  FROCEDUPE< 

/RUNWAY/ 

APALT  -  AISPCRT  PRESSUPE  ALTITUDE 

APTSSP  -  AIRnORT  TEMPERATURE  DFGREES  KEIVIS  INTERS ALI Y< 

XA  -  7A3LE  CF  PUNS AY  STAPT  ERAKE  RELEASE<  CCCRDS  ARRIVAK 
XD  -  TABLE  OF  R”EWAY  END  CCORDS  DEP ARTURE< 

P"  -  P"NVAY  T  ERGTHS 

/:’KYnr  / 

R"SE  -  CPH^LATIVE  ’("MBER  CF  CPERATICKS  INDEXED  3Y 
DEP'RTtJRES  1<,  .ARPIVATS  2<;  RIINWAY;  DAY , EVENING, N IGKT 
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“AMR  -  TABLE  OF  RUNWAY  BASES,  1  ->  DEPARTURE,  2  ->  ARRIVAL 
KBWY  -  K'l.NBEP  OF  DEFINED  RUNWAYS 
C  IVDI.G  -  MDM3ER  OF  3USIES?  TAKEOFF  PUSWAY 
C  COUNTS  NUMBER  OF  AIRCRAFT  TYPES,  ETC< 

r 

•7  /SO*  ACII/ 

C  X  -  X  COORDINATES  OF  CnRRENT  CONTOUR 

0  Y  -  Y  E^C 

r  Mi: v*  -  BOISE  EXPOSURE 

C  PROF  -  •”A3tE  CF  AIRCRAFT  PERFORMANCE  GROUND  TRACK  ALTITDDEC 

r- 

.7  /TO  RO-’P/ 

7  DC"!*.  -  CONTAINS  T7iE  DISTANCE  THE  TRACKS  IB  AGROUP  HAVE 

IB  COMMON  FCR  UP  TO  2^  GROUPS  SIGH< 
f  ITRG  -  GROUP  VP-BERS  INDEXED  BY  TRACK  NUMBERS 


C  /THDLCK/ 

•7  BTK  -  TRACK  NUMBER 

c  ::rs  -  number  ~f  track  segments  ik  cprrest  track 
"  -  bobber  <~f  pr^i’e  segments 

’•'•PS  -  N"MBEn  OF  '■'3SSRVATIOBS 
0  ITAC  -  »/C  NUMBER 

NGTEP  -  MAXIMUM  AII.CV ABLE  NUMBER  CF  TIME  STEPS  IK  OBE  SEGMENT 
7*  N~U  -  THP ESUC LD  N'JMBEP 

7  DA^RK  -  DISTANCE  {FEET)  FROM  POINT  OF  CTCSEST  APPROACH  TO  FIRST  OBSERVER 
XrA5'i?ED  ALOFG  GROUND  TRACK  AT  THRESHOLD  CF  RUNWAY  WHICH 
C  0  BE  '13 ED  IF  IT  WERE  A  TAKEOFF  TRACK.  C ABBOT  BE  10NGER 

TH  A”  TFACK.  IF  NEGATIVE,  START  CF  TRACK  WAS  CLOSEST  APPROACUU 
7  F^P  7AKECFF,  FOR  7  ANDIES 

'•  ’.CHECK  -  SET  T?'*E  IF  TIIIISI  EXPECTED  TO  CHECK  ARGS  6  PARAMETERS 
Tv  / A5DS3L/ 

C  ”'ETJ  -  TR  IE  IF  DF""A T*  ED  CIAGBOSTICS  DESIRED 

r  V7  -  "P  TO  ?U  VECTORS  POIliTIBG  TC  HYPOTHETICAL  OBSERVERS 

C  NP7  ?  -  N'*M3EP  TIMES  ACT’J  A 7  NOISE  LEV  El  TIME  HISTORY  AND  A/C  POSITION, 

^  DlPECriOB  DEPOSITED  IB  TGP7. ,  AI  PI  ,  CC-'RD.  tF 

B?IP  IS  ’ESS  THAN  OP  EQUALS  MERC,  TGPL  AND  ALPL  APENT  FILLED.  IF  ACTUAL 
T’MSEP  *F  TIME  STEPS  EXCEEDS  THIS,  TIHISI  HICCUPS. 

L7NEPGY  -  TP-’S  IF  ACr'KlHL STEM  ENERGY  BOISE  LEVELS  ARE  TC  3E  CALCULATED 


/TT-LE/ 

TTTTt  -  DESCPIP-IVF  HEADING  CF  AIRCRAFT  DATA  DASE  FILE 
R AMBER  -  USER  PROVIDED  HEADER  FCR  OUTPUT 
AP  “  CCBTO'JR  *!tTn>iT  TT”’  E 
SALT  -  AIRPCPT  ALTITUDE 
'ATT  -ANOTHER  rsnTPBT  titt  F 
■"PD  —  M7RE  ">I’,7E  °VB3TSH 


/TRACK/ 

IT?  -  •’A 37  F  ">F  >*v::«.AY  B-’MRECS  FOp  EACH  TRACK  0  IF  TRACK  IS  UND£FIN£D< 

itse;  -  contains  ■p:i~  :ri3Fs  or  track  segments  f"-r  a  given  track 

IN  THE  Lev  CRDE?  '  SITS  CF  THE  WORD.  THE  HIGH 
■s^DEP  s'  BITS  CONTAIN  INFORMATION  PEG AR DING  THE  TRACK  SEGMENTS 
F'F  A  GIVEN  TRACK.  IF  "HE  BIT  IB  POSITION  A,  COUNTING  FROM 
THE  HIGH  C "< D E ?  T  rHS  L"S  C*CF.P,  IS  A  RIAN APT  C, 

"HE”  segment  a  is  straight,  if  i,  iTns  a  turn. 

MASK  -  BINARY  MASKING  CONSTANTS  USED  TC  PLAY  WITH  ITSEG,ITPRAC,  ETC 
P'.PAM  -  ?•">  STRAIGHT  SEGMENTS:  START  CCCBDS  X,Y<, 

•"SGTU,  "NTT  VECT"1’  “OMPONENTS  ALONG  DIRECTION  X,Y< 

F"P  CTFC"LAF  SEGMENTS :  T”FN  CENT EF  CCCPDS  X,Y<,  PADIUS 
♦  =  P'!,  -  =  T  I:<,  fir  AMS’  E  ■>ADI.ASS<,  ANGLE  BETWEEN 
OMOpD  FR:*  STAR?  TO  CEr?ER  AND  POSITIVE  X  DIRECTICH 
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c  td  -  total  rn ack  distances  fpcn  begxhsug  of  track  tc 

r  "ID  '  F  EACH  S2SKFNT  EXCEPT  THE  :  AST< 

f  ~>T. IN  -  SFAMSn  OF  1/0  ’.riSOl!  TURN  RADIOS  OP  SHORTEST 

GFGEEDT  LEN3TH  FC?  EACH  •’’HACK 

r  /TRAF1K/  -  PAFTT  ALLY  INITAILIZED  BY  FIXED 
C  •*"TT  -  TOT  A!  N'TXRER  OF  DISTINCT?  Y  DEFINED  FI  ISHfS 

r  (TOTAL  3SED  “C  FIND  ?,  CONTONE  PCI'ETJ 

C  ITT  -  FT  IGNTS  DSFD  FIND  I  ATEST  CONTOUR  POINT 
r  JTPil.AC  -  T.ABIE  OF  ENCODED  PROPERTIES  Of  (SIGNIFICANT!  FLIGHTS 

F-i;ir  IDSwTTFICATON  CrDES  (POSITION  0  LSB) 

>  -  i  :  roisE  cnnvE  set  kisser  hikes  i 

•  -  ’2:  ?ER?rH NANCE  PPEFIIE  »r»SPFP 

r  1"  -  V1;  GPC'JND  TRACK  K1SEER 

;•  p'l  -  TRACK  GROT?  N"NBER 

■'  '--iT  si:;  PIT;  1  IF  flight  IS  I5KIFICAKT!  .  0  IF  HOT 

"  '>S.  'TPS  -  CONTAINS  THE  WEIGHTED  NUMBER  OF  OPERATIONS  FOR 

EACH  INDIVID" A”  Y  DEFIED  FTIGHT  FOR  AIT  METRICS. 

I  NO,  ASUS,  AND  DCSE  AI.L  HANS  THE  SAKE  WEIGHTING  SC 
T«n  •'PF^A-TCHS  FOR  C'»FFE*»T  FI  IGHT  CAN  BE  FOUND  AT 
"  'PG(KX.i) 

C  "OPS  -  SEE  “PS 

/VECRL"/ 

c  V A  -  COORDINATE  P''SI”I<'N  OF  A/C  I??  ATRPCP.T  REFERENCE  FRAME 

C  V  ALPHA  -  Im  VEC-OH  COM PCN SETS  FCP  ALPHA  IN  A/C  REFERENCE  FRA  HE 

r  VHFTA  -BETA  IN  A/C  PCF  FP  AME 
'•  7 •JAN v A  GAUNA  TN  »/C  RE?  FPANE 

-  70  -  VECTOR  P^IJ-TING  FOOT  A/C  TO  CBSEPVER  KF.T  FIXED  AIR?ORT< 

rTP"'  F 7  A '! F 

i'D':  -  AS  VD,  •**?  NOT  T"  A/C  CCOFD  FRAME 
r  /v  TN^/ 

r  -  v:::d  vet 'cities 

f  ‘'TP  -  KIND  DIRECTION.; 

C  I"PEX1  -  LIST  CF  "OISE  CURVE  N DEFERS  INDEXED  TC-  AIRCP.AFT  IK  TSER  INPUT 
0  T"PX1  -  LTST  OF  KOISE  t"”>VE  jpjJBEFS  INDEXED  TO  AIRCRAFT  IN  BSE8  INPOT 
I *" 0 K '  -  :  1ST  OF  PP'CI*  E  ETC 
<*  --L'  -  CCNTC"?  TOLERANCE  NEVER  CHAKGED< 

T0T  -  COST  AD?  t-.-t  FRANCE  Cil  AKAGFD  SOMETIMES  3Y  SE«PHT< 

"  XV  -  PF37Ir":«  C''?:T','R  VALUE  !EYF!< 
i*  7*.L  -  LATEST  CONTOUR  VALUE  LEVEL< 

T  T"EY?  -  *rRT  A!  N'-TSE  EX-CSDOR 

i'  SYS  -  HOLDER  nF  ITEF '.TICKS  REDO  IT'D  TC  FIND  CONTOUR  POINT 

*'  I  ERROR  -  ERF"  3  PLAN 

0  T'v'Lpp  -  -"OOP  C“E CF  TrT  ER ANCE  *  THE  STEP  SIZE  —  IS  LOOP  C10SIN3?< 

i'  T'LSTS  -  SIFT  T**I  EH  ANCE  *  THE  STANDARD  DEVIATIOS< 


Main  Program  GRIDS 


VIS  PpnNNAN  F'F  GRID  AN?.*  YS  IS  SONS 
C  "ID  CALIS  -HE  FOLLOWING  SNPP03TIKES  DIRECTLY 
D  SR"1  EXIT  '.'AD  DA^S 
•0  READ  IN  SKFIL  EXPOS  A  PICOEM 
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r  -otrs:  grid  may  (bum  need  not  necessarily)  be  ms  from 

c  TAPE  GEmE,’A'’ED  ?Y  NCISE  AND  CONTOUR.  it  expects  a 

C  "TilPESH"  (THI’ES  ICID  CCNTRCL  CARD)  AND  EVIDENTLY  ASSUMES 

C  All  A/C  ,  PR'TI7  E5«  ETC  HAVEN'T  .CHANGED  FPOM  THE  TAPED 

r  jvot^'s  ”•*!!-  30MF.  CF  THE  HOST  OPAOUE  CODE  IK  THIS 

C  P?’’TIf'E  -EVOLVES  LABELING  THE  POINTED  OUTPUT  TO  CORRESPOND 

C  T'1  THr  PIOTTED  CC*1T?''R 

C  CAL  VARIABLE  DIC'1C".ARY 

C  .A  -  A]  TTTUOE  (2  CCOPD)  OF  CUPRENT  OFID  POINT 
C  AFLAT1  -  Y  OTFSST,  GRID  QUADRANT 

C  AFLA32  -  Y  OFFSET.  GRID  QUADRANTS 

^  »T°CNF  -  ST^P'SE  F-'P  .AIRCRAFT  DEFINITION  REC  /OS 

r  ALT  -  A/C  HS7J;r  ABOVE  PUKWAY  (SECONDARY  SEG) 

0  A7A7  S>  AS  AVALS,  WEIGHTED  BY  VELOCITY,  SHIELDING,  ATTENHATIOK 

C  AVD  DFCIBE7.  CORRECTIONS 

C  BA!' HEP  -  USER  '’HC7IDE3  HEADER  FOP  OUTPUT 

C  COUTH  -  'LISE  CCNTP IBI’TICN  CF  AIRCRAFT  WITH  ASSIGNED  NOISE  CORVES 

AT  A  CHrSEN  P^INT 

0  DA  -DECIBEL  CORRECTION  FOR  S  EGMENT  CLCSET  TO  GRID  POINT 
C  DA‘r  -  DISTANCE  AJ ONG  TRACK  FROM  THRESHOIDTD  CLOSEST  POINT 
C  DATER  -  CONTAINS  DA'E  M/D/Y< 

C  PB  -  DECIDE7  CORRECTION  FOR  SECCKDARY  SEGMENT 

C  DST  -  DISTANCE  ALONG  TRACK  TO  CIOSEST  POINT  CN  SECONDARY  SEG 

C  !)*  -  DISTANCE  TO  TRACK  FPC.W.  GRID  POINT 
0  TA  -  GRO'JND  ATTFNTATION  CORRECTION 

C  HED1  -  r‘HT?',T  HEADER 

C  HED21  -  OUTPUT  HEADEP 

0  HED22  -  OUTPUT  HEADER 

C  Tf  -  A' T HIDE  f'r  AIRCR AF"  (FEET)  ,  PRIMARY  SEGMENT 

C  I  -  ATI  PAPPOSE  EVER  POPULAR  LOOP  COUNTER  BOR! D  FAVORITE< 

"  TA1F.A  -  LETTERS  CF  THE  ALPHABET  (GRID  QUADRANT  TDS) 

C  TCH  AR  -  01’ DR  ANT  I  ABFT  CHARACTER 

C  TCM-  -  Used  COMMENT  pitED  ON  CONTROL  CARD 

C  TCCMD  -  IDENTIFIERS  OF  METRIC  TYPES  (ASCII) 

p*  ICC”  -  COMMAND  LITERAL  T  HCOK 

C  TEND  -  COMMAND  LITERAL  THETD 

C  IEP  -  FTA3  t0  c.AL CHI  ATE  AITERNATE  NCISE  METRICS 
C  I FIL  -  TAPS  FILE  STM SEP  OF  CURREET  CONTCDP 

C  TFST  -  3"FFER  F^R  USER  INPUT  CONTROT  WORD 

C  IGPID  -  COMMAND  LITERAL  5HGRID 

C  I^p  -  PRINTOUT  OPTIONS  (COMPARISON  ARRAY) 

0  TOPTN  -  "RIKTOUT  OPTO"  F7AS  APPAY 

0  IMCR  -  COMMAND  LITERAL  TH.MPR 

C  INDY7  -  TIST  OF  NOISE  CDBVE  NUMBERS  INDEXED  TO  AIRCRAFT  IS  USER  INPUT 

C  TNDX2  -  TIST  OF  PR-'FII  E  NUMBERS  INDEXED  TO  AIRCRAFT  IN  USER  INPUT 

C  TTAC  -  NOISE  CURVE  NUMBER 

C  ITFII  -  NUMBER  °F  FILES  TC  SKIP  TAPE  FOB  NEXT  CONTOUR 

0  ITIM  -  NO?  USED  MISSPELLED  MAYBE< 

C  ITM  -  OUTPUT  I  ABE7  SEE  BATA  STATEMENT 

C  ITPKIC  -  ENCODED  REFERENCE  WORD (TRACK  GROUP 
0  NUMBER,  TRACK  NUMBER,  PROFILE  HUMBER,  ETC) 

C  ITHRESH  -  COMMAND  7ITER1!  " HTHRSH 

C  TXCOOP  -  GRID  QUADRANT  CCORD  GRID  OUTPUT< 

C  JCCK  -  FLAG  INDICATING  DATA  70  MODIFY  EXISTING  BASE 
0  KX  -  F7 TGHT  NUMBER 

C  L  -  MUMBER  OF  POINTS  IK  GRID  NX  TIMES  KY< 

C  7  UN  -  7  OGICAT  UNT"  NUMBER  OF  CONTOUR  STORAGE  TAPE 

0  MASK  -  BIANARY  MASKING  CONSTANTS  USED  BITH  ITPRAC,  ETC 

C  MAXS  -  SEGMENT  NUMBER  CF  TRACK  CLOSET  TC  GRID  POINT 

C  M\XT  -SEGMENT  nSED  FOR  SECONDARY  CONTRIBUTION 
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c-  c»  t.  C  V  O  U  O  U  U  O  U  C.  O  U  U  U  t  t.»  c.  O  O  gutit-tn  t.t'liOt'O  U  to  L  U  C  o  U  C-  U  <-' 


c  sees  -  rgkbep  of  coktiscos  sesheets  baxbe< 

HFTT  -  TnT.V*  SASSER  OF  DISTIKCTIY  DEFISED  F1IGHTS 

roc  ok  -  cojisasd  literal 
n prf  -  profile  rir9E» 

*’PTS  -  {TIBER  GRID  PCIKTS  CCOKTED  KAYBE< 

SPW  -  FTKBAT  R’SEBER 

STAR  -  PROCEDURE  KUYBER  A3  AT  BREST  TYPE<  ASSIGEED  TO  EACH  TRACK 
kog  -  tract  gno-tp  Assir.rsE^r 
•:7PK  -  TRACK  RUSHES 

r,’»PGS  -  PAGE  CASTRO’  (TISIT)  FI  AG  FOR  CPTICK5  3  ARD  3 
S'.'SPTS  -  COTET3P  TO  rC*l**C*.  RUBBER  OF  GRID  POIKT  7.ISTIKGS 
PEP  PAGE  •'F  <-OTPOT 
V:<  -  SnE3FR  CF  T  COORDS  It*  GRID 
rt  -  ruRDER  cf  t  coords  ir  grid 

"'TEE PS  -  ESTIMATED  VA1** £3  OF  OTHER  KCISE  METRICS  AT  CUKREIT  POUT 
P  -  °I ARAB  COORDS  OF  POIKT  AT  WHICH  KOISE  EXPDSBRE  IS  CAlCtJALTED 
?  -  S  6  T  CCCEDS  OF  CEPES'*-  GRID  PCIST  IK  EXPOSURE  CALCUL ATI03 
PVR  -  AIRCRAFT  PCWEE  SFTTIRG 
SIPS G  -  SLAKT  RA*'GS 

TO  -  THRUST  OF  AIRCRAFT  (PT’SDS/EEGIRE) 

TPS'!  -  TA3IE  CF  f  THRESHOLD  VAISES  FCR  CORTCDRS 

V  -  VELOCITY  C-F  AIRCRAFT  (YXCTS) 

VE*  -  VIED  VE’OCITIY 

V7  -  CCEP05EST  OF  WISD  VE10CT7T  IE  DIRECTIOK  OF  TRACK  SEGSEKT 
V^CPS  -  TABLE  **F  "EIGCTISG  FACTORS  FCR  ALTERNATE  METRICS 
X  -  t  GRID  COOmiSATSS 
YLG  -  LARGEST  X-COOPD  OK  CCST^SR 
TP?1  -  t  ■'FFSET.  FERT/1000 
YPP2  -  Y  OFFSET.  FEET/IOOO 
YS  -  SOAPTIKS  X  -  COCHD  OF  GRID 
/CSS  -  SMALLEST  X-  COCSS  05  COSTCUS 
TSTP  -  *I7»nER  OF  FEET  BETWEEN  X  VALUES  IK  GRID 
YSTP  -  rOSBEP  "F  FEET  BETWEC!  T  VALDES  IK  GRID 

Y  -  V  GRID  COOFDTT ATFS 
YLG  -  LARGEST  T  -  COORD  OK  COSTOOR 
YS  -  STRATTRi;  Y  -  C^'S!) 

YS*  -  S1ALL2ST  Y  -  COORD  CE  COKTCTR 
' *GIOAT  I TGI PE 

ette'*eal  irsios 

'  'GTCAT  .TC'-S,  I''*>TK 


unction  ACNOIS 


F\,SCOTriK  ACrvTS 


CITAC.SL EP,T 


aS'.K.KX.O.IAPP}" 


36-0R-7“ 


i  >***•***•***********•****•*•*•* 


LOCAL  VARIABLE  DIOTI''KARY 
AC30IS  -  7PISA3Y  S ETHIC  IEVEL 
"JOTSE  -  TAB’ F.  CF  EPHL  VAJT1ES  (DATA) 

\VALS  -  PRIMARY  ASD  ALTERKATe  HETPIC  LEVELS 
o^oiS*  -  "'ABLE  CF  r  3L  VALUES  (DATA) 

T  -  1  AST  VAI’JF.  IS  I  CC-RD  2  DIBEKSICHA1  IKTESP0LA7I0K  LESS  THAH 
IK"rE?!,-V  ATF.H  X  V?.I”E 
i~  I*  AC  -  A/C  TT^E 
c  IVX  -  ASST 37 FO  T  ABE*  VARIABLE 

0  .1  -  TA  CALCSLATlCr  FLAG  (SET  REFCRE  SSTRY) 

r~  r  -  ERp^n  JSFT  aEFCTE  F.ETRY  PT  CALLISG  P-07TISE) 


n  a  o  c  j 


r  KK  -  5.  PR  AY  ARGUMENT  OT  I  ARGFST  THRUST  IN  A/C  THRUST  SETTING  TABLE 

NOT  GREATE”  THAN  THR 

n  KX  -  N"MBER  OF  OPERATIONS  FOP  TA  CA! CULATIONS 

C  L  -  CONSTANT 

C  X  -  NUMBER  OF  VAI  *’ES  IN  X  TABLE  FOR  2D  INTER  POT  AT  ION 

r  K  -  K-'NBEP  OF  Y  VALUES  FOR  2D  INTERPOLATION 

C  "OAPTB  -  ;  TP  ONE  OF  THE  THREE  AIRCRAFT  WHICH  USES  AFTERBURNER  06-11-79 

C  Til  FUST  I"  "HE  FIRST  CO!  UNI!  OF  ITS  NOISE  CURVE  TABLES.  06-11-79 

r  IF  A  LANDING,  THIS  PART  CF  THE  NOISE  CURVE  WILL  BE  IGNORED  06-11-79 

C  Ml’ MATT  -  ALTERNATE  1  ETHIC  IDENTIFIERS 

C  XUMPR  -  PRIMARY  METRIC  NUMBER  (SEE  BELCW)- 
C  »VPS  -  P^ERS  SETT I" ?S 

r  S’  -  TART  RANGE,  LOG 
C  SLR N G  -  TABLE  OF  SLANT  RANGES 

S’ PR  -  S’ ANT  RANGE,  DECIMAI 
”HR  -  A/C  THRUST  SETTING 
A  CFO  IS  -  FUNCTION  SUORO'*  .'INE 

THE  n"PPrSE  CF  THE  F'’NTIOi.  SUBROUTINE  ACNOIS  IS  TO  COMPUTE  THE 
C  NOISE  EXPOSURE  ’FVEI  FOR  .A  SINGLE  FT  IGHT  IN  TERMS  OF  ANY  COMBINATION 
r  r F  METRICS.  WRITE  NO  ACT»’AI  COMPUTATIONS  ARE  PERFORMED  IN  ACNOIS 
C  TTSF.LF,  APPROPRIATE  OTHER  SUBROUTINES  ARE  ACCESSED  AS  NECESSARY  FOR 
C  EACH  METRIC  (I.E.  ,  NFF,  I.DN,  CNEL,  IE0,  ASDS,  OF  DOSE).  THE  SOB- 
C  r'MtTINES  USED  BY  ACNOIS  AND  THEIR  F”NCTIONS  ARE  AS  FOLLOWS: 

C  GENEN?  -  LOG-LINEAR-TWO-DIMENSIONA1  INTERPOLATION  IN  "ENERGY"  METRIC 
C  NOISE  TAB’  ES 

C  AS DS 2  -  DETERMINES  ASDS  LEVEL 
C  ASDS’  -  DETERMINES  DCSE  IEVE7 

C  ACNOIS  HAS  ONLY  ONE  ENTRY  POINT  AND  ITW  CALLING  SEQUENCE  IS  AS 
C  roLL'-'WS:  ACNOIS/ITAC,  SLR,  TUP,  K,  KX,  J) 

C  W  HER” 

C  ITAC  -  NOISE  CUFVE  SET  NUMBER  ASSOCIATED  WITH  THE  AIRCRAFT  FO  THIS 
C  FT  IGHT. 

C  SIR  -  THF  MINIMUM  SI  ANT  DISTANCE  FROM  THE  POINT  BEING  ANALYZED  TO 
C  THE  AIRCRAFT  FCT  THIS  FLIGHT. 

C  THR  -  the  CORRECTED  NET  THRUST  IN  POUNDS  PER  ENGINE  AT  THE  POINT  OF 
C  MIMIC'S  S’ ANT  DISTANCE  (ABOVE)  FOR  THIS  FJ  IGHT. 

C  r  -  INDICATED  WHETHER  TO  COMPUTE  THE  EXPOSURE  LEVELS  FOR  THE 
C  A’TRPNATE  METRICS  IN  ADDITION  TO  THE  PRIMARY  METRIC.  IF  K  IS  EQUAL 
C  TO  1 ,  THE  ALTERNATES  ARE  AI  SC  COMPUTED.  OTHERWISE,  ONLY  THE  PRIMARY 
C  IS  COMPUTED. 

C  KX  -  THE  NUMBER  ''•F  THIS  FT  IGHT.  IT  IS  ONLY  .MEANINGFUL  HERE  IF  ASDS 
C  r R  D^SE  I  EVE’S  APE  BEING  COMPUTED  AND  KX  IS  TRANSFERRED  TO  FUNCTION 
C  SUBROUTINES  ASDS2  AND/OR  ASDS3. 

C  J  -  INDICATES  WHETHER  OR  NOT  TO  COMPUTE  LEVELS  FOR  THE  ASDS  AND  DOSE 
C  ALTERNATE  METRICS.  IF  J  IS  LESS  THAN  5,  THE  LEVELS  ARE  NCT  COMPUTED 
C  ;  OTHERWISE,  THEY  ARE  COMPUTED. 

C  IN  ADDITION  TO  THE  CALI  I HO  ARGUEMENTS.  ACHCIS  ALSO  RETRIEVES 
C  INFORMATION  FROM  L ABE’ ED  COMMON  RI OCKS/VOISE/  AND/METRIC/.  /NOISE/ 

C  cctrutis  SLANT  DISTANCE  (SLRGN)  DATA  CORRESPONDING  TO  STPOED  EPNL 

C  VAT’IFS  (ANOISE)  AND  HE’  VA’UE.G  (BNOISE)  .  THE  RESPECTIVE  POWER 

C  SETTINGS  ARE  Ii,C’"nED  .AS  WELT  (PWRS).  /METRIC/  CONTAINS  THE  NUMBERS 
C  (l~e  BELOW)  CORRESPONDING  TC  THE  PRIMARY  METRIC  (HUM PR)  AND  THE 
C  A*  TE^NATE  METRICS  (NU1ALT) . 

C  THE  FUNCTION  ACNOIS  15  CALLED  BY  ONLY  CNE  PROGRAM,  FUNCTION 
C  SUBROUTINE  EXPOSE,  AND  IS  CALLED  MANY  TIMES  DURING  EXECUTION. 

C  AC'ioiS  HAS  TWO  EXIT  POINTS.  IF  ALTEPNATE  EXPOSURE  LEVELS  ARE  NOT 
0  CC'<P’’TFD,  THF  LIVE’  FOP  THE  PRIMARY  METRIC  IS  COMPUTED  AND  THE  EXIT 
C  RETURN  IS  IMMEDIATE.  IF  THE  ALTERNATES  ARE  COMPUTED,  THE  PRIMARY  IS 
0  COMP"TED  FIRST,  THE  THE  ALTERNATES.  THE  SECOND  EXIT  RETURN  COMES 
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C  A  FT  BP  THE  FUNCTION  SA1E  Is'sET  TO'THE  VAIUF  nF  THE  LEVEL  FOR  THE 
C  PRIMARY  METRIC.  THE  LEVELS  FOR  ROTH  THE  PRIMARY  METRIC  AND 
C  AT  TEFNATF  METRICS  ARE  STORED  IN  THE  !  ABET  ED  COMMON  BLOCK/METRIC/ 

C  UNDER  THE  NAVE  (AVAJS).  THE  POSITION  NUMBER  OF  THE  LEVETS  IN  TABLE 
0  A V AT.S  CORRESPONDS  TC  THE  MUMPER  CF  THE  METRIC  AS  FOLLOWS: 

C  1  «pp 

C  2  LDN 
C  ?  CNF’ 

e  T  r.o 

-  'sns 

?  D^SE 


unction  AL 


FUNCTION  AT.  (V,AVD,F,J) 


***** ********* *********** *******************  ************** 

'  OC  AL  VARIABLE  DICTIONARY 

ABSPJ  -  ABSOLUTE  VALUE  OP  DISTANCE  CPITERIC 

ABSPJ  -  ABSOTHTE  VALUE  OF  EXPOSURE  CUTOFF  DISTANCE  FOR  NOISE  CURVE  11 
AT  -  A  WEIGHTED  ECIBE*  LEVE! 

AL1  -  CONTRIBUTION  FROM  THE  JET  EXHAUST  TO  VALUE  AL 
A’ 2  -  CONTRIBUTION  FROM  FRONT  FAN 
A  I.1  -  CONTRIBUTION  FROM  F 
AT  3  -  CONTRIBUTION  FROM  REAR  FAN 

AVD  -  RETURNS  MAGNITUDE  CF  VECTOR  V  TO  CALLING  PROGRAM 
n-1  -  ELEVATION  ANGIE 

DC  -  TABLE  CF  CUTOFF  DISTANCES  FOR  TUB  SEVERAL  NOISE  CURVES 
n C  -  PI  MTS  US  APPROPRIATE  CUTOFF  ANGLE  FROM  DC 

DJ  -  VAT  "S  CF  .AN  APPROXIMATING  FUNCTION  USED  IN  EXHAUST  NOISE  COMPUTATION 

sy.ATT  -  ANOTHER  INTERMEDIATE  RESUIT  (SC  SEE  THE  WYLE  BOOK  OR 

LC^K  UP  THE  BUGGERING  TECHNICAI  REFERENCES,  THE  EARLIEST  IS 
FROM  1°*«...) 

F  -  THRUST  SETTING  OF  THE  AIRCRAFT 

FP  -  THRUST  SETTING  USED  IN’  PREVIOUS  CALL 

PR  -  THRUST  J-AmIO 

FPFF  -  INTERNE  >IATE  PSSULT 

G.7ET  -  ST opu  »ND  I’JTEPCEPT  VAIUES  FOR  LINEAR  APPROXIMATIONS  TO 
EQUATION  FnK  D(THETA)  ON  PAGE  PAGE  2-11  OF  WYLE 
RESEARCH  PROGRAMMERS  MANUAL,  WCR77-7,  DOT-CS-50256) 
rRJ  -  INTERMEDIATE  R ES n7  T 
RFRF  -  INTERMEDIATE  RESUIT 
JP  -  AIRCRAFT  NUMBER  TRCM  PREVIOUS  CALL 

up  -  COEFFICIENTS  OF  FUNCTIONS  DESCRIBING  EXCESS  ATMOSPHERIC 
ABSORPTION  CF  NOISE  FCP  EACH  AIRCRAFT  TYPE 
♦FF  -  INTERMEDIATE  RESULT  FROM  FRCNT  FAN  COMPUTATION 
PFR  -  INTERMEDIATE  RESULT  FROM  REAF  FAN  COMPUTATION 
BID  - 

PID2  -  ot  DIVIDED  BY  ?K« 

PJ  -  YET  ANOTHER  THTERMEEAITE  RFSUIT 

PSI  -  AN  AM'’<-,ING  ANGLE 

PSIDEG  -  PST  EXPRESSED  TU  DEGREES 

PSIM  -  A  SIMILAR  ANGLE  Tr  PSI  IN  A  DIFFERENT  PLANE 
IF-'  -  INTERMEDIATE  °Eo,;T  r 
•uE"LOG  -  LOG  TEM 

TIOGR  -  T  OGA.RTTHMS  RE  T.'IE  DEFAUJT  THEESHOJ  DS 


7-14 


id  '  *  i  i  o  n  o  --i . .  .)  r,  .->>  o  to  n 


C  >r>  -  RATIO  (l!  O'”  P  El  AT  EC  TC  ANY  SURVEUANCE  ACTIVITIES,  HAHA)  *' 

-  THRUST  "A" I ' 

-  thp'is r  ham: 

V  -  FIRST  TRUCE  LOCATIONS  ARE  VECTC'P  FRCM  AIRCRAFT  TC  ANALYSIS  POINT 

m  -  function  s'iDRooTir s 

the  F,*NCTt''r  subroutine  at  computes  tiif  a-weighted  decibfi  level  at 

*■  pnT.;T  Fn'V  A  FTIIilT  AT  *  UWFS  POSITION.  THEIS  SUBHOINE  TS  USFO 
V'  THE  CALCJLATT CN  OF  ASDSA'.iC  DCS  E  ItVF.IS.  SUBRO','’'T:iE  At  DOES  HOT 
F  'EY  r.vTERNA!  S”DPOUTT’!SS  BUT  CONTAINS  THREE  INTERNA!  SUBROUTINES 
l’  i!  AS  r  HE  ENTRY  PM  NT  C  NT  Y  AND  "HE  CAI!  ING  SEQUENCE  TS: 

AL(V,  AVD,  F.  .1) 

V.1EPE 

V  -  A  V  API  ABLE  CF  'MMENSICN  ">  op  p  HE  SUCH  THAT  MIE  FIRST  7 
T  "'CATIONS  DEFINE  A  VECTOR  POINrT"G  FROM  THE  AIRCRAFT  ™  THE  ANALYSIS 
POT'!"’  AND 

V{1)  =  X -COORDINATE 
V(0)  =  Y-CO'*'PDTNA'”F 
VP)  -  ''-COCFni"A?S 

A V C  -  THE  MAGNITUDE  OF  VECTOP  V  IS  COMPUTED  BY  AL  AND  RETURNED  VIA 
THIS  APGMMEET. 

OF-  TMF  THP'IST  SET? IK  •  OF  "HF.  AIRCRAFT. 

0  ’  -  A  "•"'REP  CORRESPONDING  TC  THE  AIRCPAFT  FOR  THIS  FLIGHT.  VALID 

r-  -’vt,rn<5  fcj  AS  rOL!  OWS:  (ALL  JET  AIRCRAFT) 
r  » — 1  -NOT  ''SED. 

0  u-P-EKGTNE  ST*'! 

C  r-U-r.',r»INE  NARROW  BODY  TURBOJET 

C  r -2-F.NGTNE  NARROW  BODY  TURBOFAN 

"  --O-vvqtNE  NARROW  BOY  (Q"TET  N AC E!  T  E) 

C  U-7-ENGINE  NARROW  RCDY  T’lRBOfAN 

~  '-'’-ENGINE  NARROW  RCDY  (D'JIET  NACELLE) 

C  0-j-ENSTNr  ,’\PR''V  E^DY  TURSCFAM 
o  1 1  -  ENGINE  NAPFCU  BODY  (Q’MET  NACELIE) 

0  1  2-",-nNS INE  WTDE  R'DY 

C  1 '-7-ENGINE  WTDE  DM7 

0  1  *}  — £i  —  Eli G I N F.  WIDE  3"DY 

C  A7  IS  CAM  ED  S Y  '"NY  CNF.  PRu  IRAN,  Sl'tiPOUTINE  TIHISI,  3UT  IS  CALLED 
"  AKY  TINES  WHEN  THE  ASDS  OP  css  E  METRICS  ARE  COMPUTED.  VARIABLE 
C  TN N A r TON  TS  PASSED  t”  *.j  THROUGH  THE  ARGUMENTS  V,F,  AND  J  AS 
.0  PP5VI.?rr.-Y  DISCUSSED.  "FIXED”  DATA  IS  RETRIEVED  FROM  LABEIF.D  COMMON 
r  DLCORS/DIP VTY/ ,/ ALT  KIT/ AND/E  XAP  P/.  DATA  REFLECTING  THE  DIRECTIVITY 
C  CHAP'C"'EPISTICS  or  NOISE  P  NI  SSI  OKS  FOP  THE  FNGINE  TYRES  (I.E. 

*  MPC'OAFT  TYPES)  IS  found  rN  (DC)  WHICH  IS  CONTAINED  IN  /DIRVTY/. 

C  "’HE  "APTARLFS  Iv  /AIINTV  ARE  NOT  REALLY  RIXED  IN  THE  SENSE  THAT 
C  T  HBY  DC"  J-  CHAN  5  F,  B’’  r  APU  USED  BY  A!  TC  INDICATE  TC  ITSEIF  KHAT 
r  VA»TAB!FS  WE"E  ’MUR  r OP  THE  PREVIOUS  CA1T.  IF  THE  THRUST  (FP)  AND 
0  A  TPCn  A  FT  K’1MBER  (JP)  WERE  THE  SAME  LAS'”  TIME  AS  FOR  THE  CURRENT  CALL 
C  (F  AVD  J  RESPECTIVE! Y) ,  A  SI 3NI FICAHT  NUMBER  OF  INITIALIZATION 
C  (.'r'  HP  •'T’l*  J  0N3  NAY  HE  '‘SITTF.D  SINCE  THF  PESUITS  ARE  UNCHANGED  FROM 

"  LAST  TIME.  THIS  SAVES  GONE  COMPUTATION  TIME.  THE  VARIABLES  IN  (?P) 

0  CCNTAIMFD  IN  /EXAPV  XCNSTST  OF  COEFFICIENTS  OF  FUNCTIONS  DESCRIBING 
<7  PYCUSS  ATM^s PH Ritrc  ADSCRPTI-'N  OF  NOISE  FOR  EACH  AIRCRAFT  TYPE. 
r  INHERE  IS  ONLY  ONE  EXIT  PETUFN  FRO*  AL  AND  IT  IS  USED  UNDER  ALL 
r  C<~  NDITI<"  NS.  -HE  A-K7T5HTFD  KECIE/.I  IEVF.7  IS  RETURNED  THROUGH  THE 
F" NCTTr V  NA.'.E  AND  THE  DISTANCE  BETWEEN  THF  ANA7-YSTS  POINT  AND  THE 
C  M PC° AFT  (I.E.  ,  t-|F.  MAGNITUDE  OF  V)  TS  pF.T'JRKKD  VIA  THE  CALLING 

0  sor/tfirN?  *. V 0 , 

r  V  =  VECT'R  FP?'.  ATrerAF?  T'-'  "oSERVEF,  F  =  THRUST ,  .7=  AIRCRAFT 
i;:uicA""'’R. 


> 
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Subroutine  ALTRRD 


SUBRA"TVNF.  A*  TpP D  (IGO,NR,i:T1Mp> 


*********  AAA +***  *:t  *■*♦**♦*  ***  **  ************************************ 

:.crv  ''SPUB'?  ni:,TTr"’AR» 

f*  p  _  PES7rICTI('I!  uvr> 

f'  G  -  PEST"TC"’T'-N  GP  ADI N”? 
r  '.Cr'"  -  IN^UT  AKEOpr  GRADIENT 

A  TCB!’C-'  -  T'TEGEP  C’TPACK  NJMRKP  CUTBACK  OVEPRTDE 

'•  rppT  -  i,'t'EGFti  CUTBACK  TYPE 

f  rT,'*P  -  D"MP  EPRop  FT  AG  )  VSTI'ICTTON  NUMBER ( 

-  TIC  -  op  pro  ?l\r, 

r  TV  -  A’  "'F.RNATE  PE7CPM  FROM  **ESS AG E 

A  THU  -  FLAG  SET  IF  IRE”  III  MESSAGE  Is  I  ESSTHAN  ZERO 

-  I?  .  Tpi'K’tp  TRn,  T”  AAK  "UMBER  TO  RESTRICTION  NUMBER 

•'  ITR  -  rTRST  ’0  X  COORDINATES  OF  CON TAU R 

*  -  PERFOBMil’CS  ?RaFI!  E  N-'mDER  (CA.tT  to  SETPSS) 
r~  \-t>  _  restPICTTCN  N'H'UEU 

z'  «n*n  _  pPSTnICTTAN  Tynp 

<•  \<ux  -  restriction  number  as  input 

'  "TAP  -  PPACEED"PE  NMMUER  ASSIGNED  TC  GROUND  track 

o  "PGSTR  -  KHFPF  PROCED"RF  STATTS 

>'  APGENO  -  '••HERE  PRCC2D~°E  ENDS 

o  s  -  nEST?T CTI  A*l  START 

"  «.TTprg  _  C’pPCOTXNE 

"  *-TRPD  Tf.  "S*n  70  OECT"UEP  THE  OPTIONAL  NOISE  ABATEMENT  TAKE  OFF 
C  PrA<'Fn"PES  NOON  THE  data  and  SUBSEQUENT  INITI AIIZATICN  OF 

C  JSS'^TATED  T»oXAn*ES. 

"  Jf’PRD  .,SFS  EXTER”AI.  SPBRCUTINES  KESAGE  AND  SETPES. 

0  T«F  SODR^Ottve  A’Tppn  HAS  ONJY  ENTRY  POINT  AND  THE  CAI.T  ING  SEQUENCE 

r  t«;  it;  c'NfTr^ujx* 

-  C’If  A*  trpd  (*,NF, TRUMP) 

C  V!IE->E 

C  A  -•'EM-'py  ADDRESS  OF  ERPCP  RETURN 

~  l’H  -ERROR  TvniCATop  WHTCH  IF  NOT  FOCAL  TO  ZERO  MEANS  AN  ERROR  HAS 
r  nEP,”  DETECTED 

r  tocmp-PASSED  tc  sro. ROUTINE  SSTRES-  AS  A  DIAGNOSTIC  OUTPUT  FLAG, 
o  thf  SUBROUTINE  AT  TRFO  TS  "SED  BY  ONLY  ONE  PROGRAM,  SUBROUTINE  READIN 
C  'I’D  Ft»t  mopmAI’Y,  AT  THOUGH  Nat  NECESSARILY,  BE  CAI  LED  ONCE  DURING 
C  the  TMRut  phase  of  execution. 

O  *'trrd  RECFTVES  AIT  op  tts  INPUT  DIRECTLY  FROM  UNPUT  DATA  CARDS. 

C  tjieop  A<?E  TWO  EXIT  RETURNS  FROM  SUBROUTINE  f  7RRD.  THESE  ARB  AT 
C  TTNHS  NUMBERED  r0  AND  61  OF  THE  SUBROUTINE  LISTING  IN  SECTION  5. 

o  THE  RETURN  AT  I I up  €0  TS  AN  ERROR  RETURN  TO  READIN  WHICH  WILL  CAUSE 

T«E  P.um  -n  BE  TERMINATED  IMMEDI AT  Y.  THE  RETURN  AT  LINE  61  IS  THE 
CCPMAL  RETURN. 

0  VHItp  AT  TPPD  "EPFopHS  NO  COMPUTATIONAL  PROCESSING,  SEVEHAT  TABLES  IN 
C  LABELED  Comrou  B!  .OCK/RES A’  T/ARE  INITTAI  TZED  AS  FOLtOWS: 
o  TCBT  -CONTAINS  THE  TYPE  CF  NOISE  ABATEHENT  PROCEDURE, 
o  GCBN  -CO"TA INS  THE  UMPUT  "’AKE1FF  GRADIENT 

C  r UGSTR  -CONTAINS  "'HE  DEFINITION  OF  WHERE  THE  PROCEDURE  STARTS 

r  '■nr.E’’D  -CCVTAI"S  THE  DEFINITION  OF  WHERE  THE  PROCEDURE  ENDS 

r  NAB  -CONTATVS  TIIF  pOCrEDUFE  NU  MU  KB  ASSIGNED  TO  KICK  GROUND  TRACK. 


7-16 


. . . . . . . 


Subroutine  APPTRD 


SUBROUTINE  APPTRD (IG9#ICNT) 

IOC A I  VARIAB1E  DICTIONARY 

Jf  -  PS ED  TC  STORE  APPROACH  PARAMETERS  TEMPOR  .RILY 

-  ORDINAL  APPROACH  PARAMETER  I.D.  NUMBER 

-  ACT” AT  APPROACH  PARAMETER  I.D.  NUHBER 
3"  100  -  NEW 

l C  "BAXAPP"  -  EXISTS  ON  DATA  BASE  (REPLACEMENT) 


03-14-79 

03-28-79 

03-28-79 

03-28-79 

03-28-79 

03-28-79 

03-28-79 

03-28-79 

03-28-79 


Function  ASDS2 

A.'itlS'1  (ITAC.KX) 


n***********-***-***-**********  ************************************** 

"MilAH’.P  ntc:"Tn*.‘ARY 

**T»  -  :r  - rj  -  TS  ?j3  on  D  EETN  ED  THrESII  KIWIS  c  DD,  KURD  2 
TS  PS;r  DEFINED  THESHOID  AS  INPU" 

\:r'"s  -  mi!.:  a:pv®  thdfsh'v  d  values  is  minutes 

'S’ , 

•SOMN  -  DTSTVTE  FROM  P'l'IVAY  THRESHOLD  TO  START  OF  A/C  TRACKING 

a:.'*::;  gp'*,.,'’d  track 

AS-'MX  -  DTS" \C’’E  FiOM  P"NW.\Y  THPESHOI  D  Trt  END  OF  A/C  TP ACKING 
ALONG  GnO*,!!D  TRACK 

as1  ams  -  »”«ri':a  to-a*  s  dc  times  above  threshotds 
asa***:  -  see  as"*k!: 

AS"  MX  -  SEE  »S.EMX 

ISDS?  -  THE  VA:"E  CF  "'IS  AS  OS  MBTFIC  F^R  THIS  FLIGHT  AND  THRESHOLD 

«SDS?  -  (EXPOSURE)  DOSAGE  F”P  THIS  PLIGHT  AND  THRESHOLD 

' SDST  -  TIME  ABOVE  "H"ESHDTD  IN  SECONDS 

s S RnrF  -  "ABLE  CP  ATPCP A?"  "EPFCRMAHCE  PROFILES 

CO  VCRS  -  TAB’ E  "F  C'lTCFF  DI STAMCFS  FOR  N^ISE  CONTRIBUTION 

'"THRESH  -  T 5 DL E  OP  USPAUL"  THRESHOLDS  MINDS  r  DU 

D  -  TC"* AL  OPERATIONS  FUDGED  Tn  CPS  PEF  MINUTE 

D?  -  USE"  DEFT*’FD  DDSH  TIMES  ’UNITS  NEED  NOT  BE  MINUTES. ..) 

DIN"  -  T”ITT  AL  TT’IE  3TEp  ECU?  IS  DMINT 

r  -  i.PEPATICNS  DIVIDED  BY  S  TX  TEN"  MS  FOP  UNKNOWN  REASON 
I  -  -iii»r<5-io’n  N”'13ER 
r 10  -  UPRCR  return 

rric  -  NCTS”  CURVE  SET  NUMBER  FOR  THTS  FI  IGHT 

T7\C"?  -  A/C  "YPS  FOR  T I HIS  I  RETRIEVED  AS  MTCHAC  (ITAC) , LOCAL  VAR 
IVY  -  ASSIGN pD  LOCAL  VARIABLE 
I  -  /'B,5  FP  V  ER  W’.MBu? 

‘  r  -  NUMBER  **F  POSTTIOF  CF  FLIGHT  DEFINITICN  IN  TABLE  ITPRAC 
I'T  I  ABE’ T  ED  COMHDN  BLOCK  /TRAFIK/ 

*  D5"I  -  LOGICAL  F’ AG,  TRUE  PPODRCES  DIAGNOSTIC  PRINTOUT 

'•TCHA.C  -  I'AB’F.  OF  .*-/C  TYPES  FOP  TIHISI 

*’""!'  -  N”MBFP  OF  AS  OS’5  (DOSE)  THPESIIOLDS 

*'C3S  -  DUMBER  CF  OBSERVERS 

"PS  -  irMDEP  id*  PRUFI’E  SEGMENTS 

"ENDS  -  NUMBER  CF  SEGMENTS  IN  THE  PERFORMANCE  PROFILE 
HT'I  -  K,,MBEn  OF  THRESHOLD  VALUES 

r  PS  -  WI ROUTED  N''Nfi F.p  CF  "P  ER  ATICNS  FOR  EACH  PLIGHT  FOR  ALL  METRICS 
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»R  - 

si°  -  slant  range 

SCEPNG  -  BAXIKHB  DISTANCE  FROB  AIR 

SOBBIJC  -  lAXTnni*.  DISTANCE  PROS  AIRCRAPT  above  WHICH  PURrHER  COBPUTATIONS 
WTLL  NCT  BP  PER  PARSED 
Too  -  USERS  ASDS?  THRESHC’D 
">H'J  -  USERS 

-pm?  -  ’.‘sep  asps’  rnrtSP)  thresholds 

TT  -  SBAE  AS  TOR’ 

tool  -  "AKEOFF  OR  1 AUDI KG  FLAG,  POS  IS  TAKEOFP,  !IEG  LANDING,  VALUE  1. 
4S0S°  -  F-UC-PTC”  SUBROnTISF 

"HE  *,n:*CTTON  SUBROUTINE  ASDS?  TS  RESPOKSIBLF.  FOR  COHTROLLIN  THE 
PETE* HI" ATT OH  or  the  ASDS  EXPOSURE  VALUE  FOR  A  SPECIFICAL1Y  DEFINED 
FLISH*  INCLUDING  AT 1  OPEPATICNS  FOR  THE  FLIGHT.  THE  SUBROUTINE 
TIHIST  IS  CAT t.ed  TC  DETERMINE  THE  EXPOSURE  FOR  A  SINGLE  OPERATIONS. 

THE  FUNCTION  ASDS2  IS  CAITED  BY  FUNCTION  SUBROUTINES  ACNOIS  AND  . 

EXPOSE  AT  THE  ASDS0  ENTRY  PCINT.  THE  CALLING  SEQUENCE  FOR  ASDS2  IS 


c 


r 


r 

r 

r 

r- 


r 

c 

r 


r 


r 

r 

r 

C 


r* 

C 


. . 

*  S  OS0  ( T T ?. C  ,  KX) 

•jr  EOF 

Tt«C  -NOISE  CIlot'E  SET  NUMBER  CORRESPONDING  TO  THIS  FLIGHT. 

K X  -THE  NBER  f  F  THE  oOSITTOH  OF  THE  FI  IGHT  DEFINITION  IN  LABELED 
C0*trc«  B’^Cf/^PAFIK/,  TABLE  ITPRAC. 

-THER  I'-'PUT  TO  FM»!CTTO*>  ASDS2  TS  PROVIDED  IN  I A  BE!  ED  COHHCK  BLOCKS 
/op->FFI/,  /TR  A  FIF/AHD/ASDS22/.  T»E  FCT  I CWING  WTL!  DESCRIBE  THE 
OEPTINFNT  ISPORFATIOK  IN  THOSE  BICCKS. 

TAB’E  DESCRIPTION 

1SPRf'F  PER FOPBAHCE  PROFILE  FOR  THIS  FLIGHT. 

NSFGS  NUN BER  CF  SEGBENTS  IN  THE  PERFORBAECE 

PROFILE. 

Tr RL  INDICATES  TAKEOFF  OF  LANDING  OPERATION. 

A  V ALn2  CF  *1.0  INDICATES  TAKEOFF,  -1.0 
INDICATED  J  ANDING. 

SLR  DISTANCE  FPOB  THE  ANALYSIS  POINT  TO  THE 

AIRC° AFT  AT  THE  POINT  OF  CLOSEST 
APPROACH. 

IPS  CONTAINS  THE  WEIGHTED  RUBBER  OF 

OPERATIONS  FOR  EACH  INDIVIDUALS  DEFINED 
FLIGHT  FOR  ALL  HETPICS.  LEQ,  ASDS  AND 
DOSE  HAVE  THE  SABK  WEIGHTING  SC  THE 
nPF RATTCNS  POR  THE  CURRENT  FLIGHT  CAN  BE 
FC-’ND  AT  OPS  (KX,’4)  . 

TAB'S  DES  CRIPTIOK 

T“°  USER  DEFINED  ASDS  THRESHOLD 

r??M  NnanER  of  dose  thresholds 

?•-»?  USER  DEFINED  DOSE  THRESHOLDS 

0 1  USSR  DEFINED  DOSE  TINES 

"HF.SE  srr  TWO  K-FNAT  EXIT  rET"RHS  frob  asds?  and  ONE  EXIT 
n'ERw.TNATTrN.  THE  ""JO  !ILPXAT  EXIT  RETURNS  ARE  AT  LINES  NUBBERED  8B 
AVD  1c?  ’N  TH2  SOBSO’JTIXE  ’TSTING  IN  SECTION  5.  THE  RETURN  AT  LINE 
'<•*  TS  USED  WHEN  THE  VARIABLE  S’?  IS  OF  SUFFICIENT  MAGNITUDE  THAT 
"IHIST  •TED  ”°T  BE  CALLED  AND  THE  VALUE  OF  ASDS  FOR  THIS  FLIGHT  IS 
TDENTCA ILY  ZERn.  THE  EXIT  AT  LINE  96  f  ST ATEHENT  NUNNER  30) 
"RRBTUATFS  >tt  E'IrtHFP  EXECUTION  AFTER  AN  ERROR  CONDITION  HAS  BEES 
ENCC'"'TiJ!,EU  IN  "HP  SM3P?utI1:2  TIHISI.  THIS  EXIT  IS  COXBON  TO  BOTH 
"ME  5  SDS?  A’"P  .’SDS’  FUNCTIONS. 

the  V'T’F  '.r  ASnS  "OR  "HIS  F’lGHT  IS  FFTPPNED  FOF  THE  USEP  DEFINED 
NNSPSiriD  "!IR-”GU  THE  P'*NC"ICN  NABE.  THE  VALUES  CF  ASDS  FOR  A 
"PRES!!? L 0  r  DB  EE’  TV  THE  "SRS  DEFI”E9  THRESHOLD  AS  WELL  AS  THE  USER 
nFFT*’EB  TH? FS'IOL D  ’PE  SUBBED  C'J-JLATIVELY  IN  THE  FIRST  TWO  LOCATIONS 
°F  T'B’E  ASIANS  IK  7  AUET  ED  C<°BB'  w  BT  nfK/GR  PBT  K/.  THF  RESUITS  ARE 


nT.r»rK 

/pppErr/ 


/TR\PTX/ 


C" XXON  R1 "C" 
/■•  SUS"?/ 
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SPTiI’NC' 
"’ME  ?”'•( 
F"P  THE 
?EKF'‘r'-'i 

•'■pi  ’.RT  • 
<r  ».px AD7 

v.ri  C) 

'.'T>  (?) 

V*f;T»_2T  i 


j*r** 1* 


-  sim  ■•* 


0  TK  TERMS  "F  MIM'»TS3  ABOVE  THRESHOLD. 

CESS IMS  PpcFop«ED  B*  ASDS"  CONSISTS  OF  INITIALIZING  VARIABLES 
CAT  *  -a  -IHTST  AMD  CONVERTING  THE  RESETS  OF  THE  CGBP7TATI08> 
ED  °?  -IMIST  ’'TF'JTES  FFC.H  SECONDS.  THE  FOLLOWING  ARE  THE 
-s  rri-IA’  l-ED  AND  THFT3  VA’ "FS. 

F  '/A'.ME/DEPINITT''?: 

POP  'F  THRESHED  VAT  RES  -  2 

)  use*  DEFINED  THRESHOLD  MINUS  c  DO 

)  ;SF.->  DEFINED  THRESHOLD 

AIRCP.’F'1’  PERFORMANCE  ?RCFIT2 
•••tj«nPo  XF  J’RNFILE  SEGEBENTS 
*•  VAT,IE/DE®IVT”TO’! 

SAT."  AS  TOP*,  (SEE  CC3MCH  3 LOCK  DESCRIPTIONS) 

~ov?-*xjtI"-”S  FILL  MOT  PF  FERFCRBED. 

■'AXTKMM  DISTANCE  FROM  AIRCRAFT  ABOVE  WHICH  FURTHER 

TIME  STEP  CALCULATED  BAX.  r P  (A,  2.)  WHERE  A= 
U'  (SLT-HTI) /I "3 01  “IN.  OF  (ABOVE  PSSUL-,  10.  , 

OH* XT/2 

IMITIAL  "IHE  STEP  =  SHIRT 

AirCt AFT  ~YOE  FOR  TIHTST  RETRIEVED  AS  KTCHAC  (ITAC) , 


c  IT ACT-*  AirCtAFT  ~YPE  FOR  TIHTST  RETRIEVED  AS  KTCHAC  (ITAC), 

ICC*,*  7AVIABT  E. 

2  *I»:i"IAT  TZEO  •’O'.'-T-ELY  FOP  .ASDS2  AMD  ASDS3  CALLS. 

7  USDS'5  -  F’t;:rT S"BPO”TIME  (ENTRY  IE  ASDS2) 

C  THF  p*i:JCTI«'S  SHPPO"^T')F  ASDS2  IS  AN  AT  TERN ATF  ENTRY  POINT  IN  THE 
A  F-KC-TO::  St1PP?MTT-E  ASPS?  ANC  CCBPMTES  THE  DOSE  EXPOSURE  VALUE  POR 
r  -*>E  F’ T5H-.  SCnPrtVTI’»E  TIHTST  IS  CAI^ED  TO  DETERMINE  THE  TIHE  ABOVE 

C  **HorSI!0T  DS  A‘*D  f.SD?"  CO  ,'VRPTS  THESE  TO  DOSE  BY  THE  FOLLOWING: 

*  0'S"(H-’'(?1‘(T(1(/D(1)  ♦  -(2)/D{2)  *  000  ♦  T(M)  /D  (K) )  *100 

C  vii 

-  ;■ T  ”  I  =  ■" he  "-M37P  CF  -PEP  ATI  CMS  IN  FLIGH”  I 

0  "T=1SFP-DEFIMSD  TIME  AB-VE  thoeSHCT D  .1  IN  HIN"TFS 

-  TjsrrwpT'ED  rTKF  A 3C V 2  *»'-S9r’A  J  IV  MINUTES 

0  n-SF  I  =  “VP-SUPE  CON  1“ IP-TION  PF  FI IOHT  T  IN  PERCENT 
•7  'SOS5  IS  CAT  LED  BY  THE  SA"E  S'lDR- "TINE  AS  ASDS2. 

-  -'IP  CAILINS  SI‘0’,rM"E  EC5  ARDS?  IS: 

7  '■  NFS*  (TT*C.  XX) 

c  -.•HEP"  THE  AFS-MEMTS  me  AMD  KX  ARE  AS  DEFINED  FOR  ASD52.  THE  IHPOT 

7  V’snnLES  APE,  T IV  SWISi' ,  AS  DEFINED  FOP  ASDS2. 

7  *  SDS*  MAS  r'"v'  EXIT  RE?U°N  AND  ONE  EXIT  TER  BIN  .AT  ION  IN  C  C-SECM  WITH 

-  *  SDS-  at  LINES  M'V.PEPEP  10r  A”D  RESPECTIVELY  IM  THE  LISTING,  AND 

-  -*|Fv  »rp  B-TH  ”SE3  F'R  THE  SAME  REASONS  AS  DESCRIBED  FOR  ASDS2. 

C  “HE'  ~  IS  AM  •*D?rTI'"l*-  -TIT  RETURN  Fft»  .ASDS?  AT  TIME  NUMBER  132. 

-  -MIS  ppttiix'  is  ’.is ED  .AFT2>5  A  SUCCESSFUL  CAL*  TO  TIHISI. 

7  T'ip  rjf  V \*  "E  7-f  THE  C"PFE*’T  F*  IGHT  IS  R ET'’RNED  T"  THE  CAILING 
..  ”T A  "HE  F’’MrT IC  M  M*  * E.  THE  CUMULATIVE  SOB  FOR  ALL  FLIGHTS 

7  TS  AS  THF  FIRST  VALUE  OF  ASIANS. 

•7  T'?  A-DITT'":  T-  THE  CONR"TATIC.-:  THF  SODE  V.A’-E,  SEVERAL  VARIABLES 

C  t-E  TMT” 1 ALTZCD,  S-ME  CF  VHICH  HAVE  DEEM  DESCRIBED  IN  THE  ASDS 2 
7  ' ISO *SST c*j,  SMBSEOM^NT  -0  EACH  CALL  TC  ASDS2.  THOSE  WHICH  DIFFER 

-  rite?  T'!F  "*'ES  DESCTIRED  E.AnT  IER  APE: 

;•  *’  *  FT  AD*  v  V  AL”E/DEFIMITICX 

r*  V7||  Vf1¥  ..T  1C  DS  =  K?TH 

<;  T’1  «SE?  3ErIKSD  DCS*  TffiSSHOiDS 
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Function  ASDS2G 

F-pr-X'1*!  A3P5’’G  (TT»r,KX) 


**************** ** ♦  *  ** ******  ************************************** 


•  r,c  *'  *r  4t>i  spT,£  dT7"“T '‘NARY 
-  'PS  <Y  SFCPSPi 


! 

I 

i 

i 

i 

i 


I 


n  -  dts"A):oe  cp-i»  runway  threshold  to  start  of  a/c  tracking 

~  slc-bg  tp  acx 

AS2NX  -  DISTACBE  VPr'*.  RUNWAY  THRESHOLD  TC  EKD  OF  A/C  TRACKING 
'*'•■<1:';  .TJf':'”D  T*»  APR 

n •> « i:  -  sop  as-'?.:: 

r~  L  S  "”r  X  _  SiF  .*  S  ”  *! T 

o  'sdsps  -  asds  expos’ pcs  f^p  grid  rvr?er 

C  ’.snsn  -  rTNS  AP-'VE  SIX  tmreshoids  for  thref  defined  tine  periods 

ashs’’*  -  of'’."  '.tive  s^nnatiob  "f  the  asds2i  v.'.rnEs 

~DS‘>m  -  TIKES  a.S^VE  THRESHOLD  VALDES  IS  SEPDRDS 
C  ’SPR^F  -  PERFTKA'TE  PROFI' E  F^P  THIS  PJ IGHT 

'•  B  -  DTFFEPErrr  P ETWEE!’  F.VEK  TNG  A  ED  RIGHT  OPS  PEP  SECONDS 

C  1  -  DTFFEPFNCE  ESTVSE?  EVENING  AND  BIGHT  OPS  TINE  ’’SITS  ARE  SECONDS 

<;  f  -  OIPFE’>E*’C"  3ETW SEV  DAY  ASD  EV 

~  C  -  DIFFERENCE  BETWEEN  DAY  AND  BIGHT  (NOT  EVENING)  OPERATICES.  AGAIN 

"  tt  !S  ’’"ITS  ARE  SECONDS 

0  CFRCPS  -  TABLE  f'?  C1TOFP  DISTANCES  FOR  V'-ISE  CO"TRIBPTI0N 

^  r-rpESH  -  TABLE  OF  v ALOES  ?  DP  LESS  THA5  "HE  DEPADLT  THRESHOLDS 

h  -B  ASDS  V.ALNFS  INCPSEE5TAL  3Y  FLIGHT  SEGMENT 
0  ps  _  VSER  DEFINED  D^SE  TIE?  OBITS 

DTNT  -  INITIAL  TINE  STB?  L’?’<ALS  DNIKT 
0  n»»YT  -HAXI—’T  ACCE°TA3’  E  TINE  STEP 

r  y  -  HAHA 

r  _  RPROP  PETBPN 

C  TTAC  -  BOISE  CnPVS  SET  H’JHBEP  FOR  A/C  FOR  FLIGHT 

C  ITACTP  -  A/C  -vpp.  P-p  TIHISI  RETRIEVED  AS  NTHAC  (ITAC)  ,1  OCAI  VAH 

.0  TVX  -  ASSIGNED  I  ABE’ 

C  KX  -  70S  OF  DEES  OF  THIS  FLIGHT  IK  TABLE  ITPRAC 

’ HETI  -  T°GIC.V  FLAG,  TRUE  HEABS  PRODUCE  DIAGNOSTIC  OUTP”T 
ATCPAC  -  TAD’S  OP  A/C  TYPES  FOR  TIHISI 
B3"!I  -  ’”"1BER  "F  THPESHOIDS 
"PS  -  N^RBER  op  PROPILE  SEGMENTS 
r  -  sate  as  tor: 

C  1\- RT  -  INDICATES  takeoff  dr  LANDING,  AS  Pins  OR  BIBOS  C3E 

0  ASDS'G  -  VHECTIC-B  SW'T'1'T".Z 

r  THE  ®ONCTTOB  3!1BP?JTINE  ASDS^G  IS  EESPCNSIbLE  FOR  CONTfiCLLIKu  THE 
C  DETERMINATION  OF  THF  ASDS  EXPrsORE  VALDES  FOR  A  SPSCIEICALLY  DEFINED 
C  F'TGHT,  TrCTnni«v?  AI’  ""EPATICNS  FOR  THE  F’lGHT. 
r  ASDT’G  CALLS  THE  STBPCHTirs  TIHISI. 

0  "HERE  ARE  TWO  ENTRY  POT*’TS  TO  ASDS2S  AT  THE  NAMES  ASDS2G  AND  ASDS3G. 

C  t.E  rATTING  SEORE^CE  FOR  ASDS*»G  IS: 

0  ASDSPG (ITAT.KX) 
c  WHERE 

P  ITAC  -  TH*  BOISE  CTRVE  SET  HTEBER  ASSIGNED  TC  THE  AIRCRAFT  FOR  THIS 
r  F’  IGHT. 

0  KT  -  THE  POSITION  *T  THE  DEFINITION  OF  THIS  FLIGHT  IN  THE  TABLE 
C  TT^AC  (THE  FLIGHT  DEFINITION  TABLE). 
f  EXPCSG  IS  THE  ONLY  SD3R0DTINF  Tn  CALL  ASDS2G. 

C  T«E  TEPTT  TO  ASDS7G,  WITH  THE  EXCEPTION  OF  THE  VARIABLE  TH2,  IS  THE 
P  SANE  *S  FOR  ASDS2  WITn  THE  ADDITIONAL  INPBT  FRCH  LABELED  COHSON 
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r 


nt  0CE/GRD2RK/  HAVING  THE  VARIABLE  ASDS2T  WHICH  CONTAINS  THE  SIX 
POISE  LEVEL  THRESHOLDS  *OR  WHICH  THE  TIME  ABOVE  IS  TO  BE  COMPUTED. 
"HERE  APE  TWO  EXIT  RETURNS  AND  ONE  EXIT  TERMINATION  FROM  ASDS2G, 
'">C*‘,'En  AT  T  INES  yEDHPED  AND  101  III  THE  SUBROUTINE  LISTING 

T°E  RETtipv  *t  JINE  67  IS  A  HOPMAI  RETURN  AFTER 
rC^*,*‘A“I~*’S  HAVE  3EE”  CO.EPLETED.  THE  EXIT  AT  LIRE  87  CAUSES 
ImmpoIATF  TERMINATION  n?  EXECUTION  AND  IS  USED  IF  ERROR  ARB  E5CC0NT- 
crrn  IT  TIHIS'.  THF  R.nTt'PH  AT  T  T  HE  101  IS  A  NORMA!  RETURN  AHD  IS 
•>SED  WHFV  ASDS2G  DETE°EIEZS  THAT  THE  LOWEST  THPESHCLD  WILL  SEVER  BE 
FXC?rDFD  ny  THE  FLIGHT  lv  0"ESTION  At  TEE  POINT  3EING  ANALYZED  A SO 
yt_*  rrnTVlo,,4L  TIMES  ARE  SET  TC  ZERO.  ROTE  THAT  THE  RETORSS  AT 
•iroi  p-  ?"D  101  A°F  CO MUCH  TC  B^TH  ASDS2G  AND  ASDS3G.  . 

-ftp  ortTPp?  fp'*'*  »SDS‘,G  IS  PASSED  TC  THE  CALLING  THROUGH  THE  FUNCTION 
«••>'«*  AND  LABELED  C^KNOK  B! C CK/5 RDOR"/  WHOSE  VARTABIES  ARE  DESCRIBED 
er.t  *  ""J0.; 

”*FTAR*S  DESCRIPTION 

r<*«VLA"‘TVE  snHSA-ICE  OF  THE  THE  ABOVE  SIX  THRESHOLDS  FOR 
'PH!?EE  DEFINED  TTKE  PEPI^DS,  Dp  TO  AND  INCLUDING  THIS 
FLIGHT. 

.SDS-'!  •’•HP  •*IEE  AB^VE  SIX  THPESHOIDS  FCR  THREE  DEFINED  TINE 

PEPICDS,  FOP  THIS  FLIGHT  ONLY. 

-'THEPS  V AT ”ES  F^R  the  '>THEP  FIVE  METPICS-'lEF,tDIl,CN2I  ,  LEQ,  AND 

OO.'-.E-I’!  THAT  '■PDEP. 

thc  •’’"REF  TTLS  PnFTODS  MEHTIOV2D  IS  THE  ABOVE  DEFINITIONS  CORRESPOND 
ti  rijr  FCILrv  INI  TN  A  CALENDAR  DAT: 

*!■  HR  -  0000  T”1  ‘'“DO 

FV E‘*IVG  -  I^OO  T"  2200 

vIGI1t"  -  0001  T“  0701  AND  2700  TD  2“00 

THF  pp-'CESSIN-;  ?EPFOPvEJ  3T  ASDS2G,  OTHER  THAN  INITIALIZING 

"*.FI 1 B*  ES,  CONSISTS  •**P  CONFUTING  THF  TIMES  ABOVE  THE  SIX  THRESHOLDS 

F-P  THE  ABOVE  TI'E  PERIODS  rT9  AI 7  THE  OPERATIONS  DEFINED  FOR  THIS 

r:i".ii'r,  GIVEN  ’‘HE  TIMES  ABOVE  FCP  C*’E  SUCH  FLIGHT.  ADDITICNALLT , 

-Ut'^IXES  AB^YE  T!,1J  THRESHOLDS  MOST  BE  CCNVEPTED  FPON  SECONDS  TO 

Lf'DTES. 


Subroutine  ASD2TH 

S'lBP-irtTIMF.  AS  DOTH  (I  ID) 
r  LOCAL  VARIABLE  DICTIONARY 

C  03  -  THRESHOLD  "CLERASCES  (ACCEPTABLE  CONTODR  VARIATION) 

C  T  -  TfiDP  CC^NTER 

C  ICMT  -  USER  TITLE 

r  i go  -  Epa^p.  flag 

C  J  -  LOOP  COUNTER 

C  ’PTH  -  N"»BER  nF  THPESHOID  VALUES 

C  TH  -  FIRST  •’SF.R  SPECIFIED  THRESHOLD 

C  *•'.>!  -  USER  SPECIFIED  THRESHOLDS  (2  -  20) 

r  a***************************************************************** 

C  ASD2TH  -  SUBROUTINE 

C  ASD2TH  READS  THE  ASDS  THRESHOLD  VALUE  FROM  THE  INPUT  DATA. 

C  SO  EXTERNAL  SUBROUTINES  ARE  USED  BY  ASD2TH. 

C  THE  SUBROUTINE  ASD^TH  HAS  FOUR  ENTRY  POINTS,  ASD2TH,  ASD3TH,  ASDANC 
C  .AND  ASDCCF.  AT!  HAVE  THE  SAFE  CAL!  I  KG  SEOUESCE  AS  FOLLOWS: 

C  CALL  ASDXXX  (■*) 

C  RHFRE 


0  ♦  -  flP.BOP*  LOCATIOE  FCS  ERROR  R WORN. 

C  rxx  -  2TH.  3?H,  ASC  OR  COS  \S  REQUIRED  FOR  DESIRED  ESTRT. 

C  ROTE  THAT  THE  ENTRIES  ASDANC  ASD  ASDCOH  ARE  HOT  USED  AT  THIS  TIME 
C  PUT  ARE  IHCI7DED  FOR  LATER  UPGR  ADIHG  OF  THE  PROGRAM.  CALLS  3SIMG 
C  THESE  ENT°Y  POI5:?S  HILL  CAUSE  AH  IMMEDIATE  ERBCR  RETURN  WHICH  WILL 
C  TERMINATE  EXECUTION. 

C  '"HE  ENTRY  ASD2TH  IS  NORMALLY  CALLED  OBLI  OHCE  PER  ROD  BUT  AT  THE 
C  PSFPiS  DtSCRETIOS  BAT  BE  CALLED  HOPE  THAS  OHCE,  BOT  ONLY  THE 

C  THRESHOLD  READ  DUPING  THE  FT  MAT  CAII-  Will  BE  OS  ED. 

C  ASD2TH  HAS  2  EXIT  RETURNS  AT  LISES  NUMBERED  9  AND  11  IB  THE 
C  SUBROUTINE  LISTING  I"  SECTION  5.  THE  RETURN  AT  LINE  NUMBER  °  IS  AH 
C  ERROR  RETURN  ASD  IS  USED  IF  THE  USEB  DEFINED  ASDS  THRESHOLD  IS  LESS 
C  THAK  6 U  DC  OR  GREATER  THAI*  115  CB.  EXECtJTICK  HILL  BE  TERHIHATED  IF 

0  THIS  PFTTIPS  IS  MS  ED.  THE  SORHA!  RETURN  IS  AT  USE  11  AMD  IS  USED 

C  IF  THE  RETURN  AT  TIHE  5  IS  5CT  CS2D. 

C  THE  V  APT  ABLE  TH7  IT  LABELED  COMMON  BLOCK/ ASDS23/IS  SET  EQUAL  TO  THE 
C  USER  DEFIHED  THRESHOLD  VAT  dr. 

C  THE  ASD3TH  ESTRT  IS  CALLED  CHIT  BT  SUBROUTINE  BEADIK  DURING  THE 
C  t(pi»  PHASE.  NORMAILY,  ASD3TH  TS  CALLED  ORLY  OMCE  SINCE  OBLI  THE 
C  LAST  OF  SOLTI PJ.E  CALLS  HOOT  D  BE  EFFECTIVE. 

C  .ASD’TH  HAS  FOOR  EXIT  RETORKS  AT  LISES  HDHBBRED  19,  25,  26  AMD  28. 

C  THE  FF-TORH  AT  LISE  19  IS  AS  ERROR  BETORH  AMD  IS  USED  IF  THE  HOBBES 
C  CF  THRESHOLDS  REOOESTED  BT  THE  OSER  IS  BOT  BETWEEN  THE  BOBBERS  0  ASD 
C  20.  THE  RETORN  AT  LISE  23  IS  AH  ERROR  RETURN  AKD  IS  OS ED  IF  AIT  OF 
C  THE  INPUT  THRESHOIDS  IS  LESS  THAB  69  OR  GREATER  THAN  115  DBL  THE 
C  RETHPH  AT  LTHE  25  IS  AN  ERROR  RETORB  AMD  IS  OSBD  IF  AMT  OF  THE  OSES 
C  DEFINED  TIHE  ABOVE  THRESHOLD  IS  LESS  THAB  OR  EQUAL  TO  ZERO  MINUTES. 

C  stt  ERROR  RETORSS  Will.  RESULT  IS  EXECUTION  TERMINATION.  THE  NORMAL 
C  RETURN  IS  AT  LISE  38. 

C  ASDrTH  BEADS  ITS  DATA  FBOH  THE  IHPOT  DATA  CARDS  AND  INITIALIZES  THE 
C  VARI  ABIES  N3TH,  TH3  AND  D3  IN  LAB El  ED  COMMON  BLOCK /ASDS23,. 


Subroutine  ATA 


j',pp“:JTT',r  ATA  (PP^F, I,E)  03 

03 

'*,‘"T’1E  .A"  A  HANDLES  THE  SIHUI  ATICN  OF  THE  ATA  TAKEOFF  PROCEDURE.  03 
TS  ACCOMP’ISHEU  3T  THE  TRANSPOSITION  OF  the  ACCELERATION  SEGMENT  03 
ISITTAI IZA'pI',r‘  AT  ’001  FT.  AGI  TO  INITIALIZATION  AT  1000  FT.  AGL.03 
T"E  SET  TP  CCMHEnOT At  JETS  APE  IMPACTED  BT  -"HE  CPENATIOS  Or  THIS  03 
'""'T'lF.  THE  PR-iGP  AFTER  WAS  TOC-MAS  I.  CONUOP,  AEF-110,  JANUARY,  03 

03 

’’-HI  ABT.ES:  03 

PP"F=APP AT  CONTAINING  THE  PARAMETERS  OF  A  TAKEOFF  PROFILE;  03 

G"0*»ro  DISTANCE,  A!  TITUDE,THPUST  AND  SPEED.  03 

I=nR''rTT  E  :;-”'nEP  03 

jr=ATpC°A?T  "TOE  H'*NBF.P  03 

ACCS?D=A'»psr  CTNTAICG  THE  ZERO  FT  APS  SPEED  03 

V7.F=ZEP0  FLAPS  SPEED  03 

* CCDS'r=T”'TAT  t  EFGTH  "F  ACCELERATION  SEGMENT  03 

ACCALT=CHA*!GE  IN  A’^ITUDE  T«  ACCELERATION  SEGMENT  03 

FCLM9= FINAL  CLI"3  GSADI E"T  03 

FTHRS?=FINAI  CLIMBOUT  THRUST  03 


IJT1F1 
T'lTS 
prr  » 


-08-7S 

►08-79 

►08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

-08-79 

.nn-70 
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Function  ATTENG 

F.,«C~Tor  *T7E”G  (*r,Z,lTAC»?VO,V) 


♦I********************-*******#************************************ 


/-  f-r,«p-~rS  (?prr"ri  \TTESn\Ttcr  PFR  5»E  AIRa23  )SI3P’IFIED( 

-  VS"1  cn*,P,,TFS  E"GT5P  SHIELDING  AND  VE’CCTTT  CORRECTIONS. 

T.CCAT  V  ART  APT  E  DICTIONARY 

otev^-t-t-'V  A"5tE,  DIFFERENT  I’liS 

attesg  -  sur  ~f  velocity  shielding  and  ground  attenuation  corrections 

(f  FTTRSEnj 

-  BETA  -  *T  STATION  ANGIE 

nr  _  I'OIN'"  (SLANT  RANGE)  IK  TABLE  OF  GROUND  ATT 2KUATION 

-  r?ST"  -  A^TE^'TtCn  AT  GIVEN  nOTFT  ) IFTEEPCLATED ( 

»*  -  ~\PT  '  -'F  <;p.>n«o  ATTE"UATTr,NS  (BY  ASCENDING  VAInES  OF  SLRNG) 

'•  t  -  index  ^p  ?a°gest  v*.!"k  it  gsnda  tess  than  gsd.atk 

I”AC  -  AIRCRAFT  TYRE 

^  3  -  •T’NBEP  •'F  P^IETS  T”  TAB1  S  OF  STTER'’ ATIOFS 

nvF  -  o-t'ER  SET~I"G 

S’R"G  -  '"ABT  E  -'F  TrARf  BARGES  (ASCENDING  ORDER) 

V  -  VE’  ,'CTTY 

r  t  -  !!CRT?.r‘:TAL  DISTANCE  To  FLIGHT  GRC7KO  TRACK* 
l  -  AIRCFAFT  n®TGHT  ABOVE  R" Kfc AY 

-  »tt'P"C  -  b**scttct  sgrpiottee 

t  F^CTI"1®  '.TTp«G  CC"*P7TrS  Tit®  VEICCITY  CORRECTION,  EGISR  SHIELDING 
I  C'-BPEfTTCr,  AMD  EXCESS  lA^ED  »TTE"7ATICN  CORRECTION  FCR  THE  SINGLE 
/-  Fvr«T  S”)ISE  O03P7TATT7NS  AssrrT ATED  WITH  THE  SEF.  LDN,  CNEL,  AND  LEO 
C  r®T?TCS. 

~  A.ttr«-3  tSP.S  THE  FFrCTTC”  SUBROUTINE  GEHFK1  FCS  INTERPOLATION  PUPPOSES. 

c  tHR  shbrott*:®  attf.ng  has  '■r.v  one  entry  pc-imt  and  the  calling 

C  S®OnENCE  IS: 

r  •t-cmr  (X,  v,  TAC,  ?or#  it, 

f  vnprjT 

r  x  -  H?®T7.CNTAL  DISTANCE  T:  THE  FLIGHTS  GROUND  TRACK 
'■  l  -  'IRCDAF7  HET5HT  *,3rVE  RUNWAY  J  EVFT 

-  TT A C  -  NOISE  C7PVE  RS-PSP  ASSOCIATED  WITH  THE  AIRCRAFT  FOR  THIS 

-  F*  IGHT 

t  ?WR  -  AIRCRAFT  THRUST  SETTING  Tl?  POUNDS  PER  ENGINE 
"  -  '-IUCFAFT  VELOCITY  If  KNOTS 

FYP~Sr  IN  tHF  C”TY  S^RRUNTINE  THAT  CAIIS  ATTENG. 

t-TS’’G  RECEIVES  ITS  TMP7T  DATA  FRC“  THE  CALLING  ARGUHENTS  A5  SELL  AS 
t  tables  G'RNG  AND  G^K DA  IR  LABELED  CCHHCN  BLCCK/EOISE/. 

I  *ttb”G  HAS  FOvp  EXIT  RETURNS  AT  TINES  RUBBERED  17,  23,  28  AND  30  IN 
C  the  S'lHprt'TTEE  LISTING  IN  SECTION  :.  THE  RETORN  AT  LINE  17  IS  0SED 
0  T®  THF  SHIELDING  Avn  g?07«D  ATTENUATION  CORRECTION  VALUES  NEED  NOT 
C  "F  C-'TPnTEP  D’»E  TO  THE  PR'iXIEITY  OF  THE  ANAIYSIS  POINT  TO  THE  GR07ND 
r  tbacK  (I.E. ,  THE  AIPCRAFT  IS  DIRECTLY  OVERHEAD).  THE  RETORN  AT  LINE 
C  22  rs  USED  IF  thf  EIFVATICE  ANGLE  AT  THE  OBSERVER  POINT  BETWEEN  THE 
T  GBFf-0  PI ANE  AND  T°E  AIRCRAFT  IS  GREATER  THAN  10  (0. 17H53  RADIANS). 
r.  the  RETnps  AT  T.ISF  78  IS  ~SED  IF  THE  COHPOTBD  VALUE  FOR  GROUND 
r  j TTE^fATION  IS  LESS  ""HAN  CP  EQUAL  TO  ZERO.  THE  RETURN  AT  LINE  30 
t  TS  nSFn  IF  EC'iE  OF  THE  OTHERS  ARE  USED. 

0  ATTENG  CCHP^TES  THE  VELOCITY  SHIELDING  AND  GROUND  ATTENUATION 
C  CORRECTION  VAT VFS  FOR  A  GIVEN  FI IGHT  AND  RETURNS  THE  RESULT  AS  THE 
SCR  rtF  THEH  A’T  VI  s  THE  FUNCTION  NAHE. 
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Subroutine  BDATA 

SL';»:  VJT|*J=  »>6T4<eum  TEMP 

C  8Lr‘CK  OAT  A  TEMP 

C  #<  «*<-***.»**  *<.«**«<**V  ***r.*  ******■>»**»  41»  **,**»*>**•***«**•**••*#*•* 

I!  R'SK  C0RTiI!!S  DTSARY  MSKISG  CCHSTASTS  USED* FOR  GBlBRiTIRS 


MS|tI?G  SCHEME  F7ii  YAP  I  ABIE  "ITPRAC"  XI  VERSI05  2: 


BITS  0  -  ' 
BITS  f  -  10 
BITS  11  -  ->3 
BITS  1  -  -  ’5 
BITS  2f  -  30 


APPROACH  PARAHBTER  I.D.  ACRDIIAL) 
*’OISE  CSPYE  I.D.  (CRDIBAI) 

PROMT  E  I.D.  (3RDIIAI ) 

"■RACK  S-TiBER 
TRACK  GPOUP  HUMBER 


£  ■**Sir(1R)  -  EASE{22)  ARE  USED  TO  EXTRACT  THIS  IIFORSATIC-B 

Subroutine  CHEKTHR 

S"SROT,,lrS  CHEKTHR  (TOO) 

'•  TUTS  SUBPCPMEE  CCS’APES  SAXP1E  THRUST  SETTINGS  SPECIFIED  IS  THE  DATA 
C  ’IS*  s.sn  nr  THE  r*5ER  F"R  compatibhity.  these  SETTISGS  are  fousd  is 

C  THE  MAXIMT.*  AED  SIMM-S  EOISF.  CURVE  THRDST  SPFCTFICATIOSS- 
C  APEAT  "’HRS*.  TK  THE  APPROACH  PARAHETER  DATA-  ARRAT  "APPTHR",  ASD 
"  T-  THF  STORED  ?*KS',Fr  ORCFILES-  ARRAY  "PROF". 

\  FAT.V  ERROp  1ESSASE  IS  ISSUED  IF  THE  FCJT.OBIHG  ISEQDAIITIES  ARE 
YI’IA*F.D; 

”SE  CP*  Ml"  -20  P*RC.  (IT)  APP.  TBRST.  -3  (LT)  BSE  CRY  HAX 
rs*  C*V  SIS  (IT?  -.0.  THRUSTS  CT.TI  rSE  CRY  HAX  ♦  20  PERC. 

■'  *v0  TF  AS  ATFC°. AFT  IS  DEFIHED  KITH  A  C0SF1ICTISG  SO. 

c  "F  e::gtoes 

Subroutine  CKBETW 

SUBROUTINE  CKBE^H  (A.VA1 . E.YB. II,  VHI!!,VHAX,SPTS) 


03-30-79 

03-30-79 

03-30-79 

03-30-79 

03-30-79 

03-30-7S 

03-30-79 

03-30-79 

03-30-79 

03-30-79 

03-30-75 


03-20-79 
03-05-79 
03-03-79 
02-05-79 
03— 0e-7S 
33-05-70 
03-20-79 

03-05-79 

03-20-79 

03-05-79 

03-05-75 

03-05-70 

03-25-79 

03-25-79 


*  rCAT  VARIABLE  DICTIONARY 
?.  -  EXPOSURE  AT  vti 
B  -  EXP'NS’RE  AT  Y3 

nr-7rSCR-TCH  yV>I'KB  ”SBD  TOR  EXPOSURE  DIFFERESCES,  RATIOS,  ETC 
DEIS  -  SAXISHS  STEPSTZ*  BE? HE EH  POISTS 
E  -  K^RXISG  EXPOSURE 
F  -  KORSTKG  EXP^SORE 
•I  -  VCPKIKG  EXPCS3RB 

~  P,?v"!LIAnr^r»r0R  STAT0S  °T  C°**I°'TE  POII?,IOHZERO  I  HO  GOOD 
2P.S  -  >!71BFR  OF  PCTRTS  IS  C'lTCUB 

PZ  CCrDIDAT*  C’lTCop  POTST 
TCI  -  C^HTCUR  TCI2RA5CS 

"rtT?  -  COYTCiiR  TOT  FRARCE  ,  SEVER  CICBBEREO 

I?iICnw7™XI»ITY  r0  Cr'-*T0!7?'  ™<*OP.  FCR  LOOP  CHECK  COHPUTATIOS 
VA1  -  VECTOR  ORIGIN  T r  FIPST  OF  5RACKETIKG  POINTS 
V*i  -  CONTOUR  7AHE 
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U  l  u  U  V)  •  !  <  t  «  l  t  l  I  <  (.  I  l  L  «.  (.  <  <  C.  C  <_  C.  I  (.M I  t 


7G  -  VECTOR  OPTGIN  TC  SECOND  Of  BRACKETING  POINTS 
VS  -  WORKING  VECTOR 
VI  -  WORKING  VECTOR 

7  SAX  -  SAXTN’M  ACCEPTABT  E  EXPOSURE  VAIUE  (CONTOUR  LEV  El.  PLUS  TOL) 
VS I”  -  NINTYNS  ACCEPT A B? E  EXPOSURE  VAT  OE  (’ C3T00R  LEVEL  SINUS  TOL) 
VST  -  RESULTANT  CF  VE  SIS*!S  VG 
Tf EE  -  SCRATCH  C OPT  OF  VE 

.<  -  l  COCRRS  OF  P3EV0IUSLY  CCHPUTED  CONTOUR  POINTS 
r  -  T  C^RDS  OF  PREVTf'USLV  COSPHTED  CONTOUR  POINTS 


ubroutine  CKLOOP 


S*,B?r"TI”F.  cr;"p  (STF, * , EPf S, S»7 »BELS,TOL2 ,TCLLC P) 


«*>— s'  v*?t»p»e  dictic::*.?-) 


r*F*  S  -  S?En  STT? 

''Lin  -  DISPLACE"0*?”  ANGLE  (TCL^PABLE  BETWEEN  SUCCESSIVE  POIETS) 

I  -  LOOP  CC"’”nc'° 

*«  -  YES,  TT  S  'COPTS? 

FPTS  -  ~r~V  POINTS  TS  CCnSTOOR  LESS  LATEST  THREE 
NFTS  -  """REP  0°  PRINTS  IS  CC?T0«R 
on  -  EO^EALITSO  n't  ?R"n',rr  OP  FP.PS  OR  RP,RP 
ap  -  55  Rp,  OPPOSITE  DOR EOT ITS 
°RS  AG  -  LENGTH  CF  Rt>  (YES,  THAIS  RP) 

r-pj  _  wtfy  jcnPpr*jTj  PCTE? 

??  -  PIFFEPEVCE  "FC'*'*P  BETWEEN  A  GIVES  ASD  NEXT  PREVIOUS  POINTS 
fp  -  OTFFERErCE  V ECTr ?.  BETWEEN  NEW  AND  A  GIVES  PCTETS 
T-'i  2  -  S^EPDEVI*.  VIJ'*'  TOT  ERA” CP 
■”rLLCP  -  STEP  DEVTATTCS  TOLERANCE 
v-P’-tsF  C3""SrS  NIHI«nv  cf  T<vr  2,  TOLT  OP 
▼  -  CONTOUR  COC "DIVA TBS 
v  -  cCNTC^o  COFEDINATES 
C~LOrP  -  ST’RP''Url”E 

TCE  SapHOFTTNS  CFT ''**«•  7=;  ”SED  TO  DETERST5E  IF  THE  CC9TDUP  BEING 
C”C"H*3D  F-S  ASnS  "R  1CG5  IS  "LOCPING." 

T«E  F^SCTT-.v  S '’UP ""’TINES  VLAG  AND  VDCT  APE  USED  BY  CKLOOP. 

SCW>'-t>tte  CKLOOP  HAS  "'«E  ENTRY  POINT  AND  THE  CALLING  SEQUENCE  IS: 
CAW  ?FLri''F  (RTF,  S.  "PTS,  I,  T,  DELS,  TOL2,  TOLLOP) 
t*  hri  p 

"IT  -  A  VARIABLE  CF  DTSBrSICS  7,  THE  FIRST  TWO  LOCATIONS  OF  WHICH 
r-'«TiI»  T»E  X-  AND  Y -CO "'PH  15 ATE D,  RESPECTIVE7 Y,  OF  1  CANDIDATE  POINT 
THE  rcrTOrS. 

*  -  *  HF.TURr  VARIABLE  IISDICACr’G  THE  STATUS  OF  THE  CANDIDATE  POINT. 
'•=*',  INDICATES  P"I'!T  TS  OK, 

*=/,  INDICATED  PCTNT  TS  SC*’'  CK. 

-ots  -  THE  E”*«3ER  "T  THE  CONTOUR  POINTS  THUS  FAR  GENERATED. 
r  -  "HP  X-COOFDINATE  FOP  "’HE  COPTCUF  FCINTS. 

HE’S  -  n*hr  ■AXIT',B  STB»SI7.E  BETWEEN  POINTS. 

TOL?  -  THE  CURRENT  COTr"*’R  ERROR  TOLERANCE. 

-at- TP  -  PROXIHITY  VO  CONTOUR  FACTOR  FOR  I  OOP  CHECK  CO, POTATION. 

VTIL  CT*  Y  BE  "SSD  IF  VAL"£  IS  T ESS  THAN  TOI2. 

"HF  CKt-CP  SHBPC"TINE  is  CALLED  ONLY  FPOH  THE  SUBROUTINE  SWASDS  ASD 
VTT.t  r,rv  BE  CAT I EP  IF  ,*.SDS  OP  IPSE  CONTOURS  ARE  BEING  COHPUTED.  IT 
VII T  BE  CAL? ED  “ANY  ’"THE  PER  RUN. 

THE  TN?*’T  TO  CKLOOP  13  ??CVICED  ENTIRELY  FRC"  THE  CALLING  ARGOHEBTS. 
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C  TH»EE  APT  THREE  EXIT  PETPPHS  »ROS  CFTOOP  AT  T IKES  RUBBERED  5,  21  MD 
C  "3  r-  THE  IIS^IS  CF  T3E  SUHRtUTIFE  IE  SECTICE  *.  THE  RET0RE  AT  HEE 
r  '  IS  ?SED  IF  THE  ITHnEP  OF  PCISTS  SEEEPATED  TUBS  FAR  IS  HOT 
C  S"FFTriEKT  TO  PERF''R3  the  !  OOP  CHECK.  THE  RETURN  AT  TJ.I5E  21  IS 
"  "SED  IF  THE  PDTR?  IN  QUESTION  TS  TOO  CLOSE  TO  A  SECTION  OF  THE 
C  C-NTTUR  WHICH  HAS  ALREADY  BEEN  COHP0TED  (I.E.,  A  LOOPIHG  CONDITION 
C  ”XISTS) . 

c  the  rp^-cEssir;  pepporneo  by  cktoop  consists  of  dbteShihihs  hoi  close 

C  A  CANDIDATE  COTTON  POINT  TS  TO  THE  PORTIO*  OF  CORTCUR  ALREADY 
C  rOEPHTED.  THE  ?ES"TT  T3  THEE  COMPARED  TO  A  CRITERION  TALBE  TO 
C  DETEr* ISE  IF  "HE  PROGRAN  CORPUTATIONS  AKD  RESULTS  ARE  PBOCEEDIIS  XI 
C  *  T?C. JC*T  EAHHEP.  IE  TTS  SEARCH  FOR  THE  "NEXT  POINT*  OH  A  CONTOBR, 
r  IT  IS  '■''SSTBTE  THAT  the  PPOGRAH  COUI  D  FIID  ORE  II  A  REGION  FOR  HHICH 
C  THE  '■?H"<'T*R  HAS  ATUEAOY  BEEH  CALCULATED.  PARTICniARLY  TR  RESTORC 
r  "UEfT  THE  3''"‘!D\BIES  *»F  THE  COIT'OR  APE  CLOSE  TOGETHER.  IF  THIS 
C  v»n»  Alt  OWED  T"  HAPPEH,  THE  SUBSEQUENT  POINTS  OR  THE  CONTOUR  HOBLD 
r  .tPST  PETEACE  THE  PATH  ALREADY  DESCRIBED  BY  PRETIOOS  POUTS.  THIS 
"  PIRD  OF  BEHATtOP,  IF  LpFT  ^HCHBCKED,  COULD  CONTINUE  ISDZFIRITELI. 

-  TH"S  THF  ptRPDSS  OF  CKTOOP  IS  TO  CATCH  THE  PROCESS  IN  TIHE  FOR 
C  C“ RRECTTYE  ACTION  TO  BE  TAKER. 


SUBROUTINE  CLOCK 


This  subroutine  is  System  Dependent  and  must  be  supplied  by  the 
user.  Subroutine  CLOCK  Resets/ Initializes  the  run  time  clock 
variable.  It  Is  called  from  the  Contour  Analysis  Main  Program  and 
is  us-id  in  conjunction  with  subroutine  CLOCKT  to  compute  each  . 
contour’s  run  time. 


SUBROUTINE  CLOCKT  (Tl) 


This  subroutine  is  System  Dependent  and  must  be  supplied  by  the 
user.  Subroutine  CLOCKT  interogates  the  system’s  run  time  clock 
and  returns  variable  Tl.  Variable  Tl  contains  the  elapsed  time 
since  subroutine  clock  was  called.  These  2  routines  provide  a 
means  of  computing  contour  run  time.  Subroutine  CLOCKT  is  also 
called  from  the  contour  Analysis  Main  Program. 
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Function  CONTF 


r''VCTI'"'  C'iJ'TF  (A) 


-  ****************************  ************************************** 

f  \  -  nADT''S  "  F  r,lp«/\,rijpp  pp  t**p*j 

r  rcrTF  -  r^pf EC1"  10  LI  TO  *TISE  LEVEL  CAUSED  by  track  geometry 

PT  -  CONST  A”'"  EO"A*S  THREE  SOMETHING 
n  (-rimt  _  pfJHCTT<'K  EPBPr'I,TT,'E 

~  ^  v?p  rs  ttspr)  to  COMPOTE  CORRECTIONS  Tr  NOTSE  LEVELS  CAUSED  BY  TRACK 

C  GEC'*r"rT>  Y 

r  pp>;»>f  uspt  >’C  EX  rpP  N A*  suppr  UTTNES. 

r  Vr  NTF  :i AS  INLY  ONE  ENTRY  poTjpp  AND  the  CALLING  SEQUENCE  IS: 
r  ,  .-.ti'-’p  (\) 

C  if|j?nrr 

C  *  _  "tiT!  SNG’E,  IK  RATTANS,  OF  A  CIFC'UAR  SEGMENT  IN  A  TRACK 
t  .'EFINTTir-v. 

/-  - 'r»  y  T"v  S”BP,'nxiwP  CURVE  "SES  THE  FUNCTION  CDNTF  B'JT  MAY  USE  IT 

r  p >  'ty  TI  y  ES  DOPING  EXECUTION. 

r  n>||E  rNPDT  [)j»!  for  CONTF  IS  THE  CALI  ARGUMENT, 
p  rr  »>n’c  has  Y  ONE  EXIT  RNT"RN. 

r  "HE  ,f AL’’E  COv?"TEO  ny  CONTF  IS  RETURNED  VIA  THE  FUNCTION  NAME. 

T  -"IF  RPOCFSSTNG  PSPFCRMFD  BY  CCKTF  IS  THE  COMPUTATION  op  THE  MINIMUM 
r  V”-r  pp  0.0  tR  (  */II. 


Function  CONTG 

tr\*’  C’D*ITG  (DD,UT) 

*********************************************** 1******************* 

'■  :rcAT  •,\riah:r  dictionapy 

"ONTO  -  CTREECTIPR  tp  »:oi3E  LEVEL  CAUSED  BY  TRACK  GEOMETRY 
t  OR  -  DISTANCE  SEGMENT 

T  d«i«  _  (T;:ppnz  oATA  TABLE)  CONTAINS  THE  VALUE  OF  THE  SHORTEST 

t  STRAIGHT  SEGMENT  OR  ONE  HALF  THE  SHORTEST  TURN  RADIUS, 

0  WHICHEVER  IS  7  FAST,  FOR  EACH  TRACK  (SIMIIAR  TO  01 D 

r  NEW  CAR  N  .APR  ANT  EES. .  .) 

r  >‘T  -  TRACK  N*’ M R E R 
"  R  -  EFFECTIVE  R ADtrS 

r  cnV7C,  -  pppcTjCN  S',I,ROt»TI”E 

C  cp'tio  is  USED  TO  COMPUTE  CORRECTIONS  ip  NOISE  I EVET  S  CAUSED  BY  TRACK 
C  GFCNETRY. 

C  rpf'TS  US ES  "0  EXTERNAL  SUBROUTINES. 

p  ptippp  xs  0NT  Y  cne  ENTRY  TO  CCNTG  AND  THE  CAT I ING  SEQUENCE  IS: 
c  C-NTG  (D,  NT) 

C  ’’HERF 

C  u  -  IS  THE  DIFFERENCE  I'>  mHE  DISTANCES  FROM  AN  ANALYSIS  POINT  TO  THE 
LOSHST  TRACK  SEGMENT  AND  TO  THE  NEXT-T0-C10SEST  SEGMENT  ON  THE  SAME 
RACE. 

t  ’*T  -  TRACK  wnNBER. 

'•  cvty  SUB!T"TINE  NBT  USES  CONTG  BUT  MAY  USE  IT  MANY  TIMES. 

C  Tflt-  input  DATA  FOR  CONTG  IS  FROM  THE  CAIL  ARGUMENTS  AND  THE  TABLE 
C  UKTN  IN  LABELED  COMMON  BLOCK/TRACK/.  THE  TABLE  DKIN  CONTAINS  THE 
C  V?7.”F  up  t>he  SJCFTEST  STRAIGHT  SEGMENT  OR  ONE-HALF  THE  SHORTEST  TURN 
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C  V'nins,  WHICHEVER  IS  LEAST,  FOR  EACH  TRACK, 
r  CCNTG  HAS  ONLY  ORE  EXIT  RETURN. 

C  THE  V  AT  ”E  COMPUTED  BY  CONTG  IS  RETURNED  VIA  THE  EUNCTIOH  FAME. 

C  ms  VAT. HE  COMPUTED  BY  t'ONTG  IS  (D/DMIN  JHT))**2  AND  FORMS  A  PART  OF 
C  A  LARGER  ROTATION  BEING  COMPUTED  IK  SUBROUTINE  HBT. 

Subroutine  Curve 


S^BRCP^TKE  C’»P''P  fIO''l,nO,ROO,P<OD,TAU,DB,IE) 

r 

'  ****************************  ************************************** 

~  *  "C  A'  "?.BI.AU’E  DICTIONARY 

4  -  Oityr-c-  rt  C!P.VV',nPF  )  AS  r»)'  ?  J  ( 
r  AT.'1!!  A  -  AJ'SLS  A*  '4*GTF  BETWEEN  THRU  CENTER  AND 

PrTV‘r  OF  INTEREST 

D"  -  ’’''TSE  LEVEL  COR R EC* TO"  FOR  POINTS  INSIDE  THRU 
'•  -  DISTANCE  O'4  SEGMENT  OF  I**  TER  ST 

•*  T"  -  ERR  “P  DISABLE  FOR  IS*4 

0  t  F  TR.'.VSRSF.O  GREATER  THAN  TH»N  ANGT  E  ( 

>'  T  TO  -  KPr,'R  FI  AS  )  SEE  IF  ( 

0  I  TO 1  -  FLAG,  *,'P>'  ANGLE  GREATER  THAN  1*0  DEGREES 

n  o  -  vrc""'” 

c  ->t  angle  (c''!,sta'«,t  radians) 

*  -  COORDINATES  OF  C’,0RFVT  POINT 

c  S  -  DIFFER  F*,Cff  ”  ECT'414  BETWEEN  P  AND  POO 

^  T*”  -  DISTANCE  ^PAVEPSED  AT^NG  TURN 

"«”Y  -  »NVE  AT  T'tRw  CEVTER  BETWEEN  START  OF  CURVE  AND 
i'  rc  j^TFr^ST 

.-if rm ^  _  v"*gpr>  dr  n»ni». v 3  im  TURN 
r  •<  -  s  T s r  -r  A  )  !’Fi»  ATI VE  FAR  PIS11T  HAND  TURNS  ( 

C  rupv*  -  S,,r.r"',JTT  NE 

-  —  tty.  s-tnwr-TTjM*  cf'RVK  IS  "SED  TO  COMPUTE  THE  SHORTEST  DISTANCE  FROM  A 
C  H’4  EC  I  FT  FD  P r  I  '•  T  TO  A  SPECIFIED  CIRCULAR  SEGMENT  OK  A  GIVEN  TRACK  AND 

-  "•  THE  CORRECTION  TO  THE  NOISE  LEVEL  FOR  THE  CONDITION  WHERE 

<■  -HP  •'otkt  IS  d»j  tpe  I SSI DM  OF  »  T’tp’J. 

r  "r HE  S"RP'',*T’TE  CURVE  ”.s  ES  THE  FOLLOWING  SUBROUTINES  DURING  EXECUTION 
r-  <■(;>•«  -  ST'N  <“«■  A  "F?,t 

-  VS''I1  -  V PCT**  R  S”  BT®  AC  "T  "  ” 

~  "F,»H  -  VECTOR  M\G”TT’TDiJ 

C  '""NT’’  -  F,'”CTTrV’  r  A  T  r‘,,T  ATTC” 

o  cupv*  V as  o*:t y  r:>;  en"py  ?ci;r  a”d  is  called  *>y  only  one  subroutine, 

-  hit  t  r>*» Vi  pXFC',"Tr'N  B’1'*  NAY  ®E  CALLED  MANY  TI"RS.  THE  FOLLOWING 
IS  '.mip  c.!I*T”  5  !’rA  T’lCP  FTP  TUN  S f'BP'V.’T THE  CURVE: 

c.rr  rnv;  (*,*,  FO,  4,  D,  TA’»,  DB,  TE) 

~  ••  ’ip"  " 

r  f  -  ■!»»'■  pv  '.ODPFSS  F^v  ?,?T',Rr  *0  CAT  T  I»?fi  PROGRAM  IF  THE  POINT  IS  NOT 
r-  |  ••  t;ip  "FA’i'JF"  Df  "HE  S  PGF.  N4?  *. 

r  -  -  «PM->PY  ADDRESS  F4?  PE~''P»]  rn  CAT  ’  TNG  PROGRAM  WHEN  THE  POINT  IS 

-  *»•  (j v  *\yc,r  d f  the  sngmpn?  a”o  the  t”pn  ahg»e  is  greater  than  iso. 

C  «•*  -  VA”Tr.SIE  OF  OTMSNSTON  T  IIP  FI°3T  TWO  POSITIONS  CF  WHICH 
r  DP Tl'”f  TUP  X-  AND  Y*’C'V'RDTrAT*S  OF  THF  ANALYSIS  POINT. 
r  •»  -  V  A*  I  A?*  E  /*F  Df  U  N"SICN  c  NT  RE ,  THE  FIRST  FIVE  POSITIONS  CF 

r  cr Pr,NK°0‘'n  t*  the  Ff LLrwr;:.'. : 

-  *>(M  -  v-C.‘I'FDir ATE  *F  THE  CEBTB*'  “F  'rHE  CIPC’UAR  SEGMFNT. 

..  ppi  -  y-cc*  ■’DINA’^E  rF  THE  CEUTEP  OF  THE  CTPCULAR  SEGMENT. 

r  •'IH  -  RADIUS  OF  C”R  V  A"”PE  OF  TUr  3  FUME  NT.  A  POSITIVE  V.MUE 

”  r’DTCATFS  A  left  ^"P”  AND  a  ‘•EGATIVE  VAL'*E  INDICATES  A  RIGHT  TURN. 

T  •>  (ti)  -  mHF  ANGLE  IN  RADIANS. 

-  p(T)  -  *:»k  *. n  ;t  e ,  •»adta*:s,  between  ?.  j  ine  joining  the  center  with 
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r  •*’» P  S  ”  A  p  T  *'?  T !! E  T,'F''  AND  THE  PPSITIVE  X-AXIS.  ANGLE  RANGES  FPOM-II 

. *rr. 

\n  o  -  '"TtR  msv.Nrr  t-  — [e  s^gneut  fnoh  the  priMT  which  in  cc.mrut2d'  «jy 

7  .  v n  p  !'rri  T"  T.'!I2  CAL’ TNG  PROGP AM. 

r  ""M  -  TH*  DISTANCE,  IN  FRET,  bp  CM  THE  PPSTHNTNG  OF  THE  TURK  TO  THE 
r  p-TVT  *■'"  THE  S'G^rvx  ^.GT  CTE»FtV  APPROACHES  KO,'  COMPUTED  BY 

»;  \  »•  n  ’>E'"\,P!,FD  '*"(*'  C  >  T.’  I  MG  r»P'T,?Ar. 

-  rn  -  s  «*TS*  C^EPFC^nv  V*.”’F  C^PUTED  RY  CURVE  WHEN  no  IS  CM  THE 
C  T"ST'1K  OK  A 

o  rr  -  an  ihptcm^p  "*c  -r’RVP  nr"?  ny  the  catling  prose  am.  a  nonzero 


C  indicates  that  the  point  is  the  segment  range,  otherwise 

fV’PV1?  M,,S'r  PBrrpMJtlE  Tfij.-j  trs  OWN. 


V  -«■  THE  INPf’T  0 A " .A  FOP  CURVE  COwES  FPOS  T'lE  CAT  MUG  ARGUE MEETS 

0  "T™  THE  V/f^p-pi-v  n*  the  CONSTANT  F"R  TI  WHICH  IS  THE,  VARIABLE  PI 

-  T”  MBKT.KD  iTCV  K  PLCCX/C''»ST/. 

0  -•»?«?*  »»E  TUr’  EF  rv:T  P**np«t<5  PROM  CURVE  AT  TIMES  NUMBERED  22,  37  AMD 

r  ■u  T»’  TUB  SUPpr'f;r,,E  T TGTING  IV  SECTION  I .  TirF  rrtURS  AT  I IME  22  IS 

r  ••'SFO  If  CM'VF  ,0FTFt'KT:!BS  THAT  THE  POINT  PC  IS  KCT  It!  THE  SEGMENT 
'  »‘«»r>5P.  the  pot»p«-  ji«  •  I«F  17  IS  r.-KFNj  IP  THE  P'PIHT  ts  IM  THE  RANGE 

r  ”*o  ?*•  p ••  :.p  to.  gpoa-fr  than  iki  (pt  radians),  the  return  at 

•'  "W*  ID  TS  TIf?  *:OPV»L  PNT”R:’  IF  t-HE  tupk  angle  is  less  than  or  equal 

-  Tr  '10  *•  VO  T’JF  OrT”T  T.S  IK  THE  nftlMF  OF  THE  SEGMENT. 

c  TP  pp^-inpifD  T'l  •".'IE  CALLING  PROGRAM  TH RO UGII  THE  CALLING 

-  i  "-~«rv[’r,  'irtv,  »p  prsvi'i'is"  y  discussed  in  the  description  of  the 

r*  r  ^  *  ’  T  ' »  \  3 1  ^  ** M  " %*  y  f>  # 

0  "HE  PIP“CESSI,,G  PETFroi^o  py  CURVE  CONSISTS ,  PTRST  OF  ALL,  CF 
C  wpp-i  'TG  T  HE  MT"!*"M  DISTANCE  FROM  A  P^INT  TO  .A  CIPC'’I  AR  SEGMENT  ON 

-  >,  (jn  ''ttp  r)  ™  K  ’  c K  . 

s*FC"”OLy,  C *’ R V F  M*’ST  COMPUTE  THE  NOISE  CO'PRECTION  VALUE  IF  THE  POINT 
..  r„  T;.  r»  m,M!  INSIDE  1*  THE  Tr’R*’.  TC  DETERMINE  IF  TO  TS  ON  THE 
~  r’STOF  TUF  TrP  V  f  '"HE  DISTANCE  BETWEEN  THE  POINT  AND  THE  CENTER  OF 
r  -ur  «pp«  rS  cOfp'«»ed  AND  -"HE  RADIUS  IS  SUBTRACTED.  IF  THE  RESULT  IS 

r  "Ffl?.'"Tvr ,  rr  ts  f»:  the  inside  ~f  the  turn,  otherwise  it  is  not. 

-  timj  DISTANCE  FROM  *"110  BEGINNING  CF  THE  TURN  TO  THE  POINT  CF 
f  THE  SEGMENTS  ftogEST  APPROACH  Tr  B"  MUST  BE  COMPUTED.  THIS  IS  DONE 
f  '!  "MO”  Y  BY  M"t-IPtyTv;j  THf  PftDIUS  OK  THE  SEGMENT  TIMES  THE  ANGULAR 

f  •ITS’’*  ACL'MENT  ‘K  T!lr  "*ftnT 


Subroutine  Date  (DATER) 

Subroutine  Date  is  a  System  Dependent  Routine  and  must  be  supplied 
by  the  user.  This  subroutine  returns  variable  DATER  which  contains 
the  current  date.  Subroutine  Date  is  called  Primarily  by  tha 
contour  and  Grid  Analysis  Main  Programs  for  generating  Report 
Headers . 


Best 
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Function  DELTA 


F'TCTI''!'  DHT  TA  (A) 


-  ********************  A***** ** ******* ***************************** ** 

■T  T^CAl  ” ARIAS’  E  DTCTTOHAR v 

'•  s  -  PRESSURE  AT TTTVOE  CORRSETTTCN 

~  i'f  TJ  -  DEJT*  C'l’RRCTION  P"1  R  5JNCOFRECTED  THRUST  VALUES 

n  7  -  F.FFECTIVF  ! » 

'  DEL'1'?.  -  F'’RCTTCN  S',RRO,,TII!IE 

C  !'RT»»  CMPtf'ES  TMT‘  DETT\  (D)  CORRECTION  FOR  UNCORRECTED  THRUST 

*MT 'itie;. 

C  THE  "NKCTION  DELTA  USES  *r  EXTERNAL  SUBROUTINES. 
r  m;«*i  >t  s  <;  OK*  T  ^”E  Entry  pdti.’T  A«D  THE  CALLING  SEQUENCE  IS  AS 
t  F?T • 'WS: 

C  DEIT  *  (A) 
r  •t]RR'? 

"  A  -  »  DISTANCE  ABOVE  THE  GRCGND  AND  HOT  NECESSARILY  THE  DISTANCE 
0  '[t-iirn  ir.A'}  SEA  7  EVPT  . 

r  "'HE  FCLT  OWING  SWBRCBTIN RS  nS  E  THE  FUNCTION  DELTA: 

r  T'>p/'Pf  ppppR,  PR'iFDA 

c  1ELTA  WTLL  EE  USED  NAVY  TIMES  D BRING  EXECUTION. 
r  "’HPR"  rs  0«E  EXIT  RET'IR*:  FROM  DETTA. 

C  THE  PROCESSING  PERFORMED  fly  dei,tji  CONSISTS  CP  COMPUTING  A  PtJ NOTION 
"  C*Pr<FSP''t:DTNG  TO  TIIF  DELTA  CORRECTION  TC  JET  ENGINE  NET  THRUST, 

"  F’-m-i*  .vnv’G  the  EFFECT  f'T  A’tit'IDE  PRESSURE  DIFFER ENTIAT  S. 

r 

r  HOTSF  IS  .ASSUMED  To  RE  A  FUNCTION  OF  CORRECTED  NET  THRUST. 

r  GTVPN :  AIRPLANE  HEIGHT  (A  IN  FT),  DEIT.A  RETURNS  A  PRESS  ALT  COBH 

0  Fop  EFFICIENCY  A  SECOND  ORDER  BIKOMIAL  APPROXIMATION  IS  MADE 

C  FOR  THE  EXPRESSION: 

r* 

n  DE’T*=P/PD 

c  a  Cl.  -  (F.D40PE-6)  *A  !**F.0Diie 


Function  DGTR 

*",NCTT'"1  DGTR  D  (DG) 

r 

<~  ************************************ ******** ******** ************** 

r  CONST  -  CONVERSION  PAC^R  DEGREES  TO  RADIANS 
C  DG  -  ANGLE  I”  DEGREES  )  IN  CASE  YO"  DIDN_T  GUESS' 
c  DGTRD  -  A«G7S  IN  RADIANS 

C  ’.IGTnn  -  FUNCTION  SUBROUTINE 
C  PGT°D  CONVERTS  DEGREES  tu  RADIANS. 

<*  THE  anNCTTON  DGTPD  DOES  NOT  USE  ANY  EXTERNAL  SUBROUTINES. 

C  DGTPD  HAS  ONE  ENTPY  POT NT  AND  THE  FOLLOWING  IS  THE  CALLING  SEQUENCE: 
r  1IT TPD  (DG) 
r  wHERc 

c  DG  -  AN  ANO*  E  IN  DEGREES 

C  tmr  SUBPC’TIHES  TRAFRD,  WINDED  AND  NEWPNT  USE  THE  FUNCTION  D3TRD. 

C  THE  INPUT  TO  DGTRD  IS  THROUGH  THE  CA1LING  ARGUMENT. 

C  DGTRD  HAS  ONI Y  ONE  EKTT  P*TURN. 

C  THE  ANGLF  VALUE  III  RADIANS  IS  RETURNED  VIA  THE  SUBROUTINE  NAME. 

C  THE  PRDCPSSTNO  PERFORMED  3Y  DGTRD  CONSISTS  CF  THE  FOT LOWING  FORMULA: 

C  D(iTPD=A  (0.0  1^453) 
r 
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Function  EGA 


p-MCTr'K  EGA  (VD,03,IG0) 

■-  **************************************************** ************** 

o  ’  ?C*T.  V APT ABJ  ?.  DICTTr"'AR Y 

B^TA  -  SINE  OF  ETEVATION  ANGIE  OF  VD 
0  EGA  -  G°OVND  ATTENUATION 

C  FHETA  -  WEIGHTING  FACTOR, RES UL AH  TO  EXCESS  ATTENUATION 

C  G»  -  DISTANCE  ALONG  GROUND  USED  TO  CALCULATE  EGA 
I  -  ARRAY  ET  EHENT  A90 
o  TOO  -  EPRf'R  FLAG 

C  i  ip  -  1 OG  OF  P 

r  -  ELFVATIOK  nF  VD 

o  P  -  t ENGTH  of  70 

o  VD  -  DIFFERENCE  VECTOR  (EXTERNALLY  DETERHINED) 

C  I  -  O^ROISATE  **  TEST  STEPS  *  LONG  GROUND  TRACK 

0  XX  -  ATTENUATION  and  DISTANCE  DATA  (FUNCTION  OF  TAN  BETA) 

0  Y  -  COORDS  OF  TEST  STEPS  ALONG  GROUND  TRACK 
o  YY  -  ATTENUATTOV  AND  DISTANCE  DATA  (FUNCTION  OF  COS  BETA) 

r  f rjA  -  P"NCTTC’>  SUBROUTINE 

r  KG A  COMPUTES  THE  EXCESS  GPOUND  ATTENUATION  FOR  THE  COMPUTATION  OF  LA 

C  ”SED  IV  *SDS  AND  DOSE  COMPUTATIONS.  THE  FUNCTION  EGA  DOES  NOT  nSE 

C  EXTr‘RFAT  SUBROUTINES.  EGA  HAS  ORE  E*’TR Y  POINT  AND  THE  CALLING 
r  oeo,,e,tf  is: 

'•  EGA  (vn,r">,-*) 

0  VD  -  A  STMENStr”  ?  OR  M0pf  VARIABTF,  THE  FIRST  THREE  POSITIONS  OF 

o  '’Hiri!  DEFINE  THE  X- ,  V-  AND  7. -COORDINATES  OF  A  VECTOR  POINTING  FROM 

C  "HP  'TRCRAFT  TO  THF  VIATTSIS  POINT. 

r  •">  -  THE  HEIGHT  AP,'VE  mHE  GRC'JND  OP  THE  ANALYSIS  POINT. 

■'  •*  -  MF^opy  t  COAT  Ton  F^R  ERROR  RETURN  IF  ANAIYSIS  POINT  IS  ABOVE  THE 

"  AIRCRAFT  (I.E. ,  VD(?)>0). 

o  "Uig  SUBROUTINE  TIHTSI  IS  THE  ONI*  USER  CF  THE  FUNCTION  EGA.  IT  WILL 
C  F r  "SED  M*.**Y  TIMES  PER  R"N  TF  ASDS  OR  DOSE  VALUES  APE  CALCULATED, 
c  *  Tpgu  WIS  F ,  IT  Wire  NOT  BE  MSFD  AT  ALT. 

0  T’" PnT  DA-" A  RELATING  ANALYSIS  POINT  AND  AIRCRAFT  POSITIONAL  DATA  ARE 

<"  "POV'DED  RY  the  CAT*  TNG  ARGUMB*’TS.  rTHEPWISE,  THE  ATTENUATION  AND 
DISTANCE  DAT*  AFE  CONTAINED  VTTHTN  EGA. 

EGA  HAS  Fr"P  EXIT  PS^URNS  LOCATED  AT  LINES  NUMRERED  13,  14,  18  AND 
o  THE  SUBROUTINE  t  TSTIFG  IN  SECTION  ?.  THE  RETURN  AT  IINE  13  IS 

r  -*SEO  IF  T«E  ANA’ YSIS  poi»’T  IS  ABOVE  GPCUND  I FVE7  (I.  E. ,  03>0).  THE 
C  F^UPN  AT  LINE  1 1*  IS  AN  EUPCU  RETUPN  AND  IS  USED  IF  mHE  AIPCRAPT  IS 
C  BR’ov  THE  AN AT YSTS  POINT  (I. E. , VD (’) >0) .  THE  RETUPN  AT  LINE  Ifl  IS 
C  "SEP  IF  THE  ETEVAT:or  >*'GTE  IS  GREAT FP  THFN  ''0.  THE  RETURN  AFTER 
C  tre  EXCESS  Gpo**rD  ATT  EM u ATICU  HAS  BEEN  COMPUTED, 
o  THE  Gpruvn  ATTENUATION  COMPUTED  BY  EGA  IS  RETURNED  THROUGH  THE 
o  fu»otjo»*  -'.vj;,  PRpnp  ’■*:Fop»ATI0«  is  TRANSMITTED  BY  THE  RETURN  AT 

"  1 INF  14. 

o  npooESST*TG  PEFFCFMED  PY  TS  THF  COMPUTATION  OF  EXCESS  GROUND 

r  iTTn"UBTTO»}  p->p  AN*  I  YSTS  poiHT  T?  AIRCRAFT  ETEVATION  A^G’ ES  UP  TO  10 

r » 
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Subroutine  EQUOPS 


?Ov*r  PS  { ''PS  ,  L'O1"1 PS  #  H29  V«N 

***"************* 


V*?  =  t?'rFi!Tv'S  !C rTGwTIv'»  rACT-i# 
'.«»•  r  V3I‘*H?IE'»  F'CT^F 


Subroutine  EXIT 


This  subroutine  is  available  in  most  FORTRAN  compilers.  If  not, 
the  user  must  supply  this  routine.  Subroutine  EXIT  returns  control 
to  the  operating  system  and,  therefore,  terminates  the  execution 
of  the  program. 

Function  EXPOSE 

k <--<?'.sr  rJ0.'»7sr*) 

****************************  ************************************** 

,^,>TA3: !'  mcrr"-5!>Y 
y\  -  '.V'-'.U)  ATTEN^ATT''::,  SEC CNDAFY 

~  jso.ans  -  vs> or  "ad’e 

ahv^s/as  -  closest  distance  to  threshold  examined 

3Y  ASDS  II/TII  PC  A  A".\:  YSIS. 

.astm  vsrsx  -  iapthest  distance  threshold  examined 

PY  ASDS  II/TII  PCA  ANALYSIS. 

:  AS'-ANS  -  .A''3S  VR'  T\p** 

AS»*K  -  SIXTLAF  TO  \S?MN  PCS’  ASDS’. 

c  's'mx  -  sivt**-p  rn  ascmx  for  ascs?. 

’  V  A  ’  S  -  TABLE  CF  NMSE  EXPOSURE  VALVES  AT  A  PC  11" 

«vr  -  r’i-4"-  STIVE  VVH  FDR  PRIMARY  .1 ETRIC. 

AXE"'  -  C"V.'JLA"TVE  VALUES  FOP  7VDAFY  VETPIC. 

"  D'#  -)D  -  ** D I S F  *  EV  O'  CO i. SECT I“*!S 

PA  -  NOISE  VALVE  CL *»*» ECTIC*  FOR  CLOSEST  SEGMENT 
r  OAT  -  PITTANCE  ALONG  'HE  track  FFOM  THRESHOLD  TO  THE 

•:°AC«*R  POINT  OF  CLOSEST  APPROACH.  (RETURNED) 

:  "ATP*  -  DISTANCE  ATOMS  PRIMARY  SEGMENT 

-  nC'.M  -  "A3’  E  °F  OIAT.VCF  C RIT Er T A 

Df>  -  DISTANCE  TO  SSCnND  ARY  TPACK  FROM  PO 
•'NT  -  DISTANCE  UOX?  PRIMARY  3 E 9? ENT  FROM  END  OF  RUNWAY  TO 
r.CsEST  APPPC  ACM 

*>T  -  ors"»NCr  T’  SFCCVD.ASY  S  ED  K F  *"  T 
l'"A  -  DISTANCE  FPC::  ?'\*>ITI''N  Tr  TRACK  AT  THE  TP  ACK?S 

r^INT  OF  CICSFST  APPPC ACH.  (RETURNED) 

D"P  -  DI.’,"ANCE  FROM  A  SCON  C  CLOSEST  SE3  ON  TFK  TO  DRJ 
;•  -  r.?c’"’.D  attend atio”,  pftmapy 
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'IT  -  A’  l'TTi'DE  (3ET'IP'!ED) 

t"\ac  -  i »: d e <  fop  viss  curve  set  (i  to  20) 

ITPFAC  -  "'ABIE  OF  ENCODED  A/C  TABLE  ARRAY  ARGUMENTS 
TTP  -  TAPE E  AF  R'.'S'WAY  ASSIGNMENTS  FOR  EACH  TRACK 
ITT  -  D”MEY  A me;:'"  FOR  SIFT 
.1  -  ,01'?  Cr,,M-ES 
JVSC  -  CONSTANT,  •?) 

K  /  -  t  n^p  r»»*i-i»pi> 

".ASK  -  DEC  DES  INFORMATION  FROM  ITPRAC 

•;axs  -  ::n.  '-k  closest  grow  (petnpnf.d) 

“AX:?  -  rca  segment  n’W.er  (sent) 

vAFT  -  VO.  CF  s ECCN  DAPY  SET  “ENT  (PET'JPNED) 

RETURNED  CN’Y  IF  A  SECOND  SEGMENT  OS  THE 
’•PAC’-f  APPROACHES  CLOSE  ENOV  JH  TO  COUNT.  (RSTUR 
v.ipp  -  wp;[i  NC'IEN  )  SECONDARY  ( 

N"*3  -  "AH’  V.  IF  Cl  R":i!!  HEARINGS 

}!C  A IC  -  LOGICAL  FLAT,  CALCULATE  JUST  PPI  ARY  CR  ALL  METRICS 
SR  -  VIPER  or  TABLE  ENTRIES  TC  CLEAR  IS  A  SO  IS 
NEKT  -  rT  AG,  CLEAR  ANSWER  TABT  E  IF  SET  *1 
NFFT  -  TOTAL  NUMBER  CF  DEFINED  FLIGHTS 

S TT  -  DUMMY  VAR,  PREVIOUS  TRACK  GROUP  NUMBER 
SOBS  -  IPMHER  CF  OBSERVERS  ) MEASUREMENT  LOCATIONS  ( 

SO’’ STD  -  LOGIC*’  F’  A3,  INDICATES  NONSTANDARD  TAKEOFF  PROFILES 
sops  -  ‘I-'FDFP  C?  o  PE°  AT  CIS  for  A  GIVEN  TRACK  AND  TIME  PERIOD 

‘•pis’ii  -  fla;,  indicate;;  primary  metric  is  sot  a  t/a  metric 
npn':ss  -  ’ooicai  f’ag,  t/a  "ftric  must  be  c.alcualted 

SPPF  -  PROFILE  NVBSR  (PPIMARY)  (1  TO  150) 

NT  -  TRACK  NUMBER  ) SECONDARY  ( 

NT  =  TPACK  NUMBER  (SENT) 

VTRX  -  TRACK  NUMBER  (STORED  IS  ASDS  COMMON  BLOCK) 

NTG  -  n’EACK  GRorjp  NUMBEP  (1  TC  25) 

«TBT  -  DUMMY  VAR.  PREVIOUS  VA7UE  OF  NTSTl 

STST  =  M'ASS  CT  OSEST  SEGMENT  IS  KNOWN  (SENT) 

NC?=  2  MEANS  CLOSEST  SEGMENT  UNKNOWN 

STST'  -  USF  AIL  FLIGHTS  TK  COMPUTATIONS  THIS  PASS 
"TSTV  -  HAS  FXPD.V'RE  BEEN  DETERMINED  FOR  BOTH 
FORWARD  AS D  BACKW APD  TIME  HISTCRIES 
JPG  -  TRAC1'  GHO"P  N’MBSB 
rF«  -  TRACK  VIUEP  )  PRIMARY  ( 

)PM  -  TCGICAL  FLAG  A”RAY,  INDICATES  WHETHER  EACH  METRIC  ) 1-6 ( 

IS  T“  EE  CALC’’’  AT  ED 

:!''M5rR5  -  INDICATES  T/A  METIRCS  APE  TC  BE  CALCULATED 
NR '•A’  "  -  A!  TFPKATE  METRIC  NUMBER 
KUMV’M  -  D-'MMY  VAR,  ’PM.PK 
'PMrn  -  OR!  FI’  E  PHBEP 

••YS  -  K”(BER  IF  rl'1  ES  THRO" OH  F.XPCSE  FOR  A  GIVEN  POINT 
) EXTERNAL’  Y  RESET ( 

RP ■“ FCT  -  WTEGHTIMG  FACTORS,  PRIMARY  METRIC 
PPOF  -  PRCFIXE  TABLE 
POO  -  ROSITInr  X-Y  COORDINATE  (SENT) 

°L  -  TABLE  OF  ?"NW,AV  LENGTHS  FOR  EACH  RUNWAY 
PVL  -  RUNWAY  LENGTH 

SET  to  ZFRO  EXCEPT  FOR  LANDINGS  WHERE  RO 
IS  BEYOND  THT  STOPPING  POINT  DF  THE  AIRCRAFT- 
",'il  -  SLAV”  RANGE  (DISTANCE  FROM  ROD  TO  THE  AIRCRAFT) 

ST  -  DISTANCE  ALONG  "’PACK 
TABLE  -  "LADLE  "F  DEFINED  FT.  I-GI1TS 
"M  -  T'lR’iST  (PET’PNED) 
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V  -  GROUND  SPEED  (RETURNED)  ~  - ” 

VV  -  A/C  VELOCITY,  £X'"£R>!ALLLY  DETERMINED 
VO  -  COORDINATE  POSITION 
VPCTRS  -  ENERGY  rE^rC  WEIGHT  IPG  FACTORS 

X*V  -  V.AT7E  FOR  PRIMARY  METRIC  AT  POINT  CF  CLOSEST  APPROACH 
XLV 7  -  VALVES  FOR  "*SDARY  METRICS  AT  PCA. 

YT.V  -  V AT V E  FO"  PRIMARY  METRIC  AT  SECONDARY  APPROACH 
Y1V2  -  VLAUES  FCR  ''NDAP.Y  METRICS  AT  7KDARY  APPR. 

7.T  V  -  TivrU  V  AT  ** E  PCR  PRIMARY  METRIC  FOR  THIS  FT  IGHT 
7.LVP  -  TO"  AL  VALUES  FC?  2ND  ARY  METRICS  FOR  THIS  FLIGHT 

fvp-jr  -  p’i mcti'"’  subroutine 

EXPOSE  IS  THE  EXECUTIVE  S'JBROIT IE E  ASSIGNED  TO  COHPUTE  THE  NOISE 
EXP" S”RE  AT  A  GIVE’!  POTNT  AS  A  RESULT  CF  ALL  DEFINED  AIRCRAFT 
‘'PE1' ATIf  NS.  EXPOSE  TALT  IES  CUMUI  ATTVE  SUSS  OF  ISDIVIDUAI 
CTNTRTV’TIOVS  TC  FINALLY  ARRIVE  AT  A  TOTAL.  THE  PRIMARY  INTERNAL 
FUNCTION  r  F  'XPOSE  IS  "’O  DECIDE  WHICH  pUANTITI  FS  NEED  .TO  BE  COMPUTED 
»ND  "HE''  ACCESS  THE  PROPER  SUBROUTINES  WHICH  PERFORM  THE  ACTUAL 
(••CRP’1  r\TIC*'S. 

THE  ^UNCTION  EXPOSE  USES  “MIE  SUBROUTINES  ACK^IS,  A3DS2,  ASDS3, 
ATTENG,  HDT ,  PPEPN,  SIFT,  *.'!D  7ER0. 

EXPOS-  MAS  ONLY  ONE  ENTRY  AND  THE  CALLING  SRO"EKCS  IS: 

EXPOSE  (RO,  NTST*1) 

"  HE  <r 

-  A  VARIABLE  CF  DIMENSION  1  CP  MORE,  THE  FIRST  TWO  POSITIONS  OF 
*. *' IC 1!  DEFINE  THE  X-  AMD  Y-C^CRDINATFS  OF  THE  ANALYSIS  POINT. 

"TST"'  -  INDICATES  WHETHER  T”  USE  ATI  FT  IGHTS  OR  ONT  Y  "SIGNIFICANT" 

FT  I  HITS  T"  THE  COMPUTATION  OF  THE  NOISE  IEVEL  AT  THE  ANALYSIS  POINT. 
TRF  S|.,SR0"TI'1ES  THAT  USE  EXPOSE  ARE  FIRST,  GRADIE,  NEWPNT  AND  NKASDS 
I”  ADDITION  Ti  THE  M*I*»  PROGRAM  UCISF.1.  EXPTSF  WTLL  MORMAII.Y  DE 
CAILED  MANY  TIMES  D”RING  EXECUTION. 

thp  TNP"T  DATA  FOP  EXPOSE  C^MES  FROM  ITS  OWN  CAII.  ARGUMENTS  AS  WELL 
AS  S-NE  OF  THE  CA1  T  ARGUMENTS  ”F  THE  SUBROUTINES  IT  "SES.  OTHER 


DATA  IS  PAS 
RX°"SK  HAS 
’ ”D  T70  I" 

■ i  •  Y5  THE 
v:’ ur  *  —  » 
THE  COMPUTE 
■.’RE”  THE  A I 
DIAGNOSTIC 
V E  TAKSN  » 
PROVIDED. 

711c  t-itS’  N 

t  rt**I"!SD  TH 
TABLE  AVALS 
r“t  "'R"’CFSS 
rXP?S’,PE  A" 


SPD  VIA  LABELED  CCMMON  BLOCKS. 

FC-R  EXIT  RETURNS  LOCATED  AT  LINES  NUMBERED  519,  522,  524 
THE  SNIP''”"’!  ME  1  I  STING  IN  SFCTION  F .  THE  RETURN  AT  tINE 
NCPMAL  RETURN  USED  WHEN  THE  COMPUTATION  OF  THE  NOISE 
POT  NT  IS  COMPLETE.  THE  PETHRK  AT  LINE  522  IS  USED  WHEN 
D  "OISE  V  A™  2  F'-R  A  FI  IGHT  is  EXCESSIVELY  I ARGE,  USUALLY 
PC^AFT  is  EXTREMELY  CLOSE  TO  THE  ANALYSIS  POINT,  AND  NO 
PRINT"'”'!  IS  REQUESTED.  THE  RETURNS  AT  IISES  524  AND  530 
NOSH  THE  DANE  CIRCUNST A”CF.S  WHEN  A  DIAGNOSTIC  PRINTOUT  IS 

'"'TIE  EXPOSURE  A”  A  ?0TMT,  FOR  THE  PRIMARY  METRIC,  IS 
r"'”GH  THE  F:.t’’C"’ir N  NAME.  "THERS,  IF  A!  Y,  ARE  FET”RSED  IN 
IN  I ABELUU  CCM»CN  ULOCK/MSTP IC/. 

IN'.  nERFO ? MFD  UY  FVPOSE  CONSISTS  CF  COMPUTING  THE  NOISE 
A  POI?:~  F”R  A’"  CR  SE1  ECTFD  DEFINED  AIRCRAFT  FIIGHTS. 


Function  EXPOSG 

S,*3R0*”riNE  EXPOSG  (P00,TE3,NCTA1  C 

-  ********* ******* a*********** ************************ ************** 

<1  TOCAL  VARIABLE  DICTIONARY 

C  AS  -  G»r»*:D  .ATT EH'1  ATICN ,  SECCEDASY 
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.VT  -  AIPCF.nFT  A!  TIT^TE  ABOVE  PUNK  .AY  LEVEL 
AS2ANS  -  ANSWER  TABLE 

A S2NK/\S‘ MN  -  C70SFST  DISTANCE  Tr  THRESHOLD  EXAMINED 

BY  ASDS  XI/III  PCA  ANALYSIS. 

AS21X/AS"  IX  -  rAP7H,’ST  DISTANCE  7C  THRESHOLD  EXAMINED 

BY  ASCS  II/III  PCA  ANALYSIS. 

AS7 A NS  -  AFSNER  TABLE 

AS?'*!:  -  SIMT! A  S  TO  AS2MN  FOB  AS0S2. 

AS7KX  -  SIMILAR  TC  AS  7  M  X  PCP  ASCS 3. 

ASDS2I  -  ASDS  EXPOSURE  FOR  CURRENT  FI.ISHT  (COMMON  VIA  ACSOIS,  ETC) 

A SDSPR  -  oa«,;i,'G  TCTA7  OF  EXPOSURE  FCP  PRIMARY  METRIC  (ASDS) 

AVALS  -  TABLE  CF  NOISE  EXPOSURE  VALLES  AT  A  POINT  ■ 

AVAJS?  -  AS  A  VAIS.  SECONDARIES 

AXE  -  CUMULATIVE  VAL"E  FCP  PRIMARY  METRIC. 

AXE?  -  CUNU7  ATIVE  VATi'FS  FOR  2NPABY  METPIC. 

DA,  DB  -  NOISE  LEVEL  CORRECTIONS 

DA  -  NOISE  VV"1E  COPRFCTIPN  FOP  CLOSEST  SEGMENT 
DAT  -  DISTANCE  ALONG  THE  T PACK  FPOM  THRESHOLD  TC  THE 

TPACKiS  F^INT  OF  Cl OSEST  APPRnACH.  (RETURNED) 
ns  -  DIS'-ANCE  TO  SECONDARY  track  fpok  ro 
OST  -  DISTANCE  ALrNG  PRIMARY  SEGMENT  FROM  END  CF  RUNWAY  TC 
C’OSEST  APPROACH 

DT  -  DISTANCE  TO  SECONDARY  SEGMENT 
DTA  -  DISTANCE  FPCM  POSITION  TO  TRACK  AT  THE  TRACK AS 

POIN'r  rF  CLOSEST  APPROACH.  (RETURNED) 
n^n  -  DISTANCE  FROM  SECOND  CTCSFST  seg  cii  TRF  to  ORG 
",  \  -  r.nnnvr)  J.  TT  W”U  AT  ION ,  PRIMARY 
'IT  -  ALTITUDE  (PETNRNED) 

TAPP  -  APPROACH  PARAMETER  I.D.  (ORDINAL)  03-28-79 

TER  -  OPTIONAL  OUTPUT  INDICATOR  -  HCNZERO  MEANS  DETAILED  FLIGHT  DATA 
T-SC  -  INDEX  FOR  MCISE  CURVE  SET  (1  TO  20) 

IT? FAC  -  TABLE  "r  ENCODED  A/C  TABLE  ARRAY  ARGUMENTS 
TTR  -  TADte  OF  R  INK  AY  ASSIGNMENTS  F^R  °ACH  TRACK 
ITT  -  D"MMY  ARGUMENT  FOR  SIFT 
KX  -  too-?  COUNTER 

MASK  -  DECODES  INFORMATION  FBCH  ITPPAC 
MATS  -  HO.  rf  Cl OSEST  SEGMENT  (FFTnRNED) 

M.AXS  -  PCA  SEGMENT  NUMBER  (SENT) 

MAXT  -  NO.  OF  SECONDARY  SEGMEKT  (RETURNED) 

RETURNED  OKI  Y  IF  A  SECOND  SEGMEKT  ON  THE 
TRACK  APPROACHES  CLOSE  ENOUGH  TC1  COUNT.  (RET0R 
MPFF  -  PROFILE  HUMBER  ) SECONDARY ( 

NFPT  -  TDTAT  K'JMBFR  OF  DEFINED  FTIGHTS 

NCBS  -  NUMBER  CF  OBSERVERS  ) MEASUREMENT  LCCATIOHS  ( 

NCPS  -  N.*M3ER  CF  "'PER  AT  IONS  FCR  A  GIVEN  TRACK  AND  TIME  PERIOD 
'"OTA  -  '  TF  NO  TIME  ABOVE  IS  TO  BE  CALCUI ATED  03-28-79 

NPRF  -  PROFILE  NUMBER  (PRIMARY)  (1  TC  150) 

«T  -  TRACK  NUMBER  ) SECONDARY ( 

NT  =  TRACK  NUMBER  (SENT) 

KTG  -  TRACK  GROUP  NUMBER  (1  TO  25) 

VTRK  -  TRACK  NUMBER  (STORED  IN  ASDS  COMMON  BLOCK) 

NTST  -  DUMMY  VAR,  PREVICU.S  VALUE  OF  NTST1 

NTST  =  2  MEANS  CLOSEST  SEGMENT  IS  KNOWN  (SENT) 

NOT=  2  MEANS  CLOSEST  SEGMENT  UNKNOWN 
NTST1  -  BSE  ALT  FI IGHTS  IN  COMPUTATIONS  THIS  PASS 
N7ST2  -  HAS  EXPOSURE  BEEN  DETERMINED  FOR  BCTH 
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FORWARD  AltD  BACKWARD  TIME  HISTORIES 


c  kumatt  -  alternatf  metric  number 

r  NVMPR  -  "’RCFILE  .T'MBER 

C  OTHERS  -  RUNNING  TOT AT  OF  ALTERNATE  HETIRC  EXPOSURES 

C  POINT  -  C'RFENT  P OI'IT 

C  PEMFCT  -  VIEGHTING  FACTORS,  PRIMARY  METRIC 

-  PROF  -  PP^FT’  E  E 

PWPS  -  A/C  ?!IP"5T  SETTINGS  (CCM.MCN) 

C  ”00  -  POST TICS  X-Y  COORDINATE  (SENT) 

~  FT  -  TAD*  E  OF  RUNWAY  T ESGTHS  FCR  EACH  RUNWAY 

r  p4r  .  rivvAY  t.r»:GTH 

C  SET  TO  2PR0  EXCEPT  FOR  I ANDINGS  WHERE  RO 

-  IS  BEYOND  THE  STOPPING  POINT  OF  THE  AIRCRAFT. 
r  SIR  -  SLANT  RANGE  (DISTANCE  FROM  BOO  TO  THE  AIRCRAFT) 

C  TW  -  THR'LST  (P'J',’,'a‘!RD) 

C  V  -  GROUND  SPEED  (RETURNED) 

C  VO  -  COORDINATE  POSITION 

C  VV  -  A/C  VE*  ''CITY#  EXTSRNAM  T  Y  DETERMINED 

C  WFCTPS  -  ENERGY  ME-IC  WEIGHTING  FACTORS 

0  <■  V  -  VAT  ”5  FOR  PRIM APY  .MFTRIC  AT  POINT  OF  CLOSEST  APPROACH 

0  VLV2  -  VALUES  FCR  2NDAPY  METRICS  AT  PC  A.. 

C  V-V  -  VAT  HE  FOR  PRIMARY  METRIC  AT  SECONDARY  APPROACH 

r  •  LVO  -  VLA"ES  FCC  2NDARY  METRICS  AT  2NDAP.Y  APPR. 

0  rv  -  TOT. A’.  V.M  ME  FOR  P?I  MAR  Y  METRIC  FOR  THIS  FT  IGHT 
r  ?LV->  -  TOTAL  VALlfis  MR  2UDA°Y  METRICS  FOR  THIS  FLIGHT 

C  EXPOSG  -  SUBROUTINE 

r  THE  SUBROUTINE  EXPOSG  CONTROLS  THE  COMPUTATIONS  OF  THE  NOISE 
0  TYPOSURE  VAT«ES  AT  A  GTYFN  POINT.  EXPOSG  PI  AYS  THE  SAME  RCI  E  FOR 
C  -HF  'mo  ANALYSIS  MODEL  AS  THE  FUNCTION  EXPOSE  DOES  FOR  THE  CONTOUR 
C  '"ALYSTS  MODEL. 

C  FXP-'SG  CALLS  OHS  SDBHDUTr’ES  VTRS,  ZERO,  HBT,  PPEPR,  ATTENG  AND 
C  AONOTS  WHICH  ARE  ALL  DESCRIBED  IN  SECTION  2.  ASDS2G  AND  ASDS3G  ARE 
S*'  CM  ’  ED  .AND  THEY  AnE  DESCRIBED  EARLIER  IN  THIS  SECTION. 

C  EXP^SC  HAS  CNF  ENTRY  POLK?  AND  THE  CAII ING  SFQUEUCE  IS: 
r  CALL  EXPC-SG  (A, IS?) 

7  ’.HEN  I 

C  .*.  A  V AT I.AH*  E  or  DT MENS ICNT  CR  MnPF  WHICH  CONTAINS  THE  XY- 
C  COORDINATES  CF  TI12  ANALYSIS  POINT  IN  THE  PIRST  TWO  POSITIONS. 

C  IFF  “PTIONAL  CUT?"?  INDICATOR. 

IF  TpS=0,  NO  DCCPIM 

'  IF  IER=0,  OUTPUT  DE.TAIL3D  FLIGHT  DATA. 

FXPTSG  IS  CAM  ED  PY  >"HF  MAIN  ‘PROGRAM  GRIDPP  AND  W  IT  I  BE  C  AIL  ED  OSCE 
C  PER  GRID  POINT  TO  BE  r,?rCSSSED. 

C  1HF  TjjP'tT  T*1  EXPrSG  IS  TUF  JUG!!  THE  CALLING  ARGUMENTS  FRCM  THE 

-  CilLTHG  PPO'GE AM  .AS  WELL  AS  THE  CALLING  ARGUMENTS  TC  THE  SUBROUTINES 
0  -UM  FXPCSG  CALLS.  OTHER  INPUT  IS  PASSED  THPCUGH  LABELED  COMMON 

C  8*  T’’S. 

r  ’’HERE  APR  TWO  EXIT  RETURNS  FR'LM  EXPCSG,  LOCATED  AT  LINES  NUMBERED  80 
C  '  NT  °?  IN  THE  SUBr.-'UTINE  LISTING  IN  SECTION  7.  THE  RETURN  AT  LINE  . 
'  >'o  A  UCPM.V  RETURN.  THE  RETURN  AT  7  INE  8?  IS  AN  ERROR  RETURN 

r  A-D  TS  USED  WHEN  "HE  DISTANCE  BETWEEN  THE  ANALYSIS  POINT  AND  AN 
:  f TPC°AFT  IS  VERY  SMA7  T . 

<•  THE  CUTPD-  RPOM  EX  PCS  1  CONS  I  GTS  CF  THE  VALUES  FCR  THE  VARIABLES  III 
C  *  ABE*  FD  C-'MMO.’l  nT.CrX/GPUO'’V  WHICH  WERE  DESCRIBED  TE  SSCTICN  3.2  AND 
C  T°E  -PTTCKA*  OUTPUT,  M  \vv, 
r 
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Subroutine  FIRST 


T‘T'>:>7  (•'0  o ,  ';py  v*j 


C 

c 

r. 


c 


"'C'-  Vfpr.n-f 

C"”  -  FAC""'0  -■  AD.VST  ST'.PTR?  POINT  IF  FTPST  GUESS  YEILDS 
Gr-'T  A“  U'p-G'ipp,  EI-HEP  1  n  C  P  1/1! 

^SPIV  -  ’VV'i-T-ir  pp  ^-jp  ^r>  \nlFV—  AT  POIK" 

-  wi.  gpao:"':"  vEcr"?  (PCtrTS  t^v^rds  greatest  exposure  change) 

•*  -  ;,?nor  (T"  A”'  DISI  *‘TE  NECESSARY  TC  MOVE  P"!!’?  FOR  NEXT  S'JESS 
Triprq  -  pr-j-o  ft.  AG,  j-n.tv 

TR3TG  -  FV.pS?  msiEST  T.'FE/'Fr  P»»UWAY 

-PV11  _  1^-rciV  pyp-s-tOP  A'r  FTFST  P^Iirr  CD  cer:"c->:< 

'"'3!?  -  !"”4REF  'F  v*sF’>,.,p°S 

•’’■'•pr  .  npTv«pv  ••p~IpC  j:-t-.3Ep 

“YS  -  '‘r U.'ITS  ""FUE?  IF  TIMES  THROUGH  EXPnSF  (BUFV  THAT  TIME) 

p  -  hcids  p^o  •■•http  tts  val’*e  ts  changed,  etc 

•>»  -  n  xs  ti|p  jhopt  ST.AP"  op  1ST 

-  ijc'-'v  jM-T.jpp  i*<i  >3,1*1  )(t  PCTU"  SEARCH  ,  0 

-'C'"’  -  PCCS  A:”' THE1*  FACT  OP.  TO  ADJ-’XT  PCINT  SEARCH  ,  3/2,  SEE  IT  HE  8? 

«*X  -  p-t;:V'Y  tp*!g"MS,  ’'ABIE 

p*p*.  -  p**i*v|f.v  i  SEGTH  ''F  PUSTFST  R’jnVAY  TIMES  HA5TC  FACTOR  RCON  ?/2 
pr>  -  3;s''""l'‘T  OF  POO  XT’:!'G  * 

-  «-j;j-i.c~n  ppp**]-'  T'\rr‘A‘'CE 
*•'.  _  px?'3"PE  **00 

71  -  DIIFEPEUCE  rF  v  1  AVO  CCNT,'i,P  VAL^S 
'*#•*  -  pri'ifp.pp  VA"‘,E 

-  «\1  °IPS  TCI.  AtLCVABIE  *»AX  VALUE  O’J  CONTOUR 
•m»  *«*•»*-  c"':i‘"''”n  V  A*  "F  *«IT’S  EPRCP  Tr-*  ERANCE 
y A  -  0,,!’VAY  STAR"  X.Y  COORDS 
Yi  _  n'T«i>\Y  «*»•-)  x,Y  CT^RDB 
Yrt)  -  7  E'!I)  C'^PO  CF  P”SIEST  F'.'KWAY 
YS"  -  y  S'"A*'T  C^PP  r>r  BUSIEST  T’KEOFF  P”*mY 
Y'*P  -  Y  k"D  cr:RO  '*  BnS  TEST  TAKFCFF  P’JNW AY 
VST  -  v  S'PART  connn  OP  BUSIEST  TAKEOFF  RISK  AY 
fxpst  -  S'tjn>pi»i>T "T 

T1F  P-PP^SE  °F  SOBPOPTTCE  FIRST  IS  "O  FIND  THE  FIRST  ?oiUT  OS  A 
rp,r-in_  IT  alI1  -iSS  FITH2P  THE  GRADIENT  HETHCI)  OP  "US  RUNWAY 
rfnTr*<if njif  "pi'pnn  "•p  FfO  THF  FIRST  pf'INT. 

THE  s'!PPO"TI*,F  FIRST  ISES  "HF  SUOReU"!?’ ES  EXPOSE,  GRADIE,  VH AG,  VSOD 

pfrvr  A,-0  yfyi, 

"»*  S'.'nS,",TrHE  FTPST  HAS  o«p  EHTPY  POTvT  AKD  THE  CAIIIHG  SEQUENCE  IS 
OAKY  F"?ST  (?-,  CEY1) 

V  ItP**'’ 

P*  -  A  VARIABLE  op  OTM?*'SIo>t  :  OP.  V.OH,  THE  FIRST  TWO  POSITIONS  0* 

••'ICH  IVDTCA"E  THE  RETROD  "c  BE  '•SED  PY  FIRST  TC  FIND  THE  FIRST 
R^T^T.  TF  Pr TH  VAIorp,  AHE  7PRC,  THE  BUSIEST  TAKEOPF  RUNWAY  METHOD 
HE  CSEP.  IE  PI" HER  eo  b^th  P^STtIOVS  ARE  ROzerp,  THE  FIRST  IS 
'SSOVRO  TC  BE  THE  X-CO^pDIS A"E  AH D  THE  SECCUD  THE  Y-COORDIHATE  OF 
THE  OSEEVS  pS"IMA"p  »"  WHERE  "HE  FIHST  POINT  IS  AND  STARTI11S  "HERE, 

THE  TTEP.ATT  vp  no*.HTE*!T  METHOD  V  IT  T  BE  USED  TO  FIND  THF.  FIRST  POINT. 

-pyi  -  mHE  COT SE  rvpos*»HE  7.AI3E  AT  THE  FIRST  POINT  CN  THE  CONTOUR. 

"•'IT  m"p  F.AT,T  PPrOP AM  rrTS El  ^sES  THE  SUPROPTIHE  FIRST. 

THE  S"DROPTT'.:E  FTPST  hti y  be  USED  OHiy  pjCE  PER  CONTIGUOUS  CONTOUR. 

••otp  that  ONE  "CCNtCH"  MAY  PE  Cr  HPOSED  OF  SEVERAL  DISJOINT  COSTOURS 
**1  V’,-G  THE  SAME  ME"RIC  VAA"E. 

THE  os.Tt  x»!p*vr  th  i'tbSt  IS  the  CALI  ING  ARGtlHEUT  Ro,  PREVIOUSLY 
OPSCPTRED,  AKD  "HPO'T.H  LABELED  COMCN  BLOCKS.  THE  FOLLOWING  WILL 


n 

DHT* I’  ^Hr 

'  C^SfiON 

BInCr  I3P*tT. 

r 

/PF/ 

Tot 

CC’ITCTR 

ERROR  TOLFP.AKCE 

c 

V»1 

c  nyrryifl 

V  AT  "E 

r 

/Ptt”HAY/ 

XA 

pnnwAY 

START  XY-COORDIHATES 

n 

yD 

F**D  TY-COOFDI!’ ATES 

r * 

IPBIG 

"F  T*S"RST  "AKEOFF  P' 

r* 

/  J  rr  r  fi~  / 

S'tF.PR 

!!n»!3SR 

CF  "PI NARY  KETPIC- 

- 

n 

1-* 

- 

1*7.  *9 

r=.«‘>n*» 

r  rrr^*  f»»<?  tk*'  EXIT  PET"PNS  * CCATRD  AT  TIKES  NHNBERSD  r2  ASD  139  Of 
f  ?pr  s’,nf'''”‘>‘1''E  *  I5TIN-;  yi  SHC"IC*"  5 .  TKE  RETURN  ?.?  T  IKE  52  IS  THE 

~  ?„T.,r..  ^cTPt?  •>sn:<:  "in  gpadiekt  sETHro  tc  find  the  pirst  poiht.  the 

r  l*  »  trs  “*5  TS  USED  » FT°P  THE  RUNWAY  HETH^D  HAS  TO  FIND  THE 

r  fitst  "HO  "PT"*??  OF  FIRST  IS  ?F",!5»!ED  TO  THE  CALT  IRG 

7  p»<— ,**1  THP-VSH  "HE  CALLING  AP-'I  "NESTS.  THE  XT-CCOPDINATES  CF  THE 

-  p/'T«"  —  -tfp  ~c..r«..n  CONTAINED  IK  THF  VARIABLE  RO,  AWD  THE  N0IS2 

••  T'l'T  P^T""  TS  CO*""  A I*"E D  II  THF  VARTABJ  E  EET1.  DEPENDING  OS 

•"  "”E  T-o-”-  DA"A ,  "HE  S"?3PC0"INE  FIRST  Will  EXERCISE  CEE  CF  THE  TWO 

C  r.tFFF°F*;7  “ETHOnS  TO  PT*W  "KS  fiost  p^tht  ok  a  GIVEH  NCISE  EXPOSURE 
r  -'■jjTi-np.  "HE  "SE"  P«-1"£S7  *U*T  "HE  PPOGRAN  FI  HD  THE  FIRST  PCIKT  03 
"  pUr#  R,  pm:  pso^EiT  "HE  nRCGNAN  TO  3 EG IK  THE  SEARCH  AT  A 

<“  .;-«E-3FTr  n"IV".  THE  "SEP  CHOOSES  THF  NETHOD  Tn  BE  USED  BY  SELECTING 

C  "HE  ,JA*  ” E  or  THE  pS"T'*'TED  "CSITTO"  OF  "HE  FIRST  POIKT  03  THE 
"  r-S""*"0.  IF  "HF  ESTTyA"E  Tn£N"ICALLY  t-X-O.  THE  PH05RAN  WILL  FISD 

c  T-jp  VTPr.T  "'■"*1"  o;!  its  -H-:  "SING  THE  ?P"HWAYN  RETROD.  OTHERWISE, 

C  "IE  on  A  PIE*!T  RET'rO  VT?t  hf  HSEO.  THE  FO*TCWINr.  PAP  AG8APHS  OESCBIB 
0  r * C  1  “P  THESE  aPT”"OS. 

r  TP  Tur.  .  r,no  cHC:S"K  TO  OT^ECT  THF  CRONRA"  TO  A  SPECIFIC  AREA  TO 

*  G^ru  fch  "he  rr^"’,  a::  ?y-cc''rdisa"e  poikt  hist  3E  specified. 

r  ’•tip  "CTSE  EXHT."?"  IS  CONFUTED  AT  THIS  POIKT  BY  THE  PROGRAS  TO 
t-  pp-rpn^jvr  iF  it  is  fV*  "jit-  cokto"F.  IF  SO,  THE  SEARCH  IS  OVER.  IF 
r  -r-,  ri|f  v?r— >d  VRICU  OEFT'""S  AS  APPROXIMATE  LOCAL  KCISE  COKTO0R 
r  S-AO:pKT  IS  DETRHOTKSO  by  C~ ypnTr IKG  THE  KOISR  EXPOSURE  AT  TWO  ROSE 
»*  •*"T:.'"S:  CKF  A"  ”  FEE"  1*1  "HE  POSTTIVS-X  DIPECTKN,  AND  THE  OTHER  AT 

-  -  PT-™  II  tup  p-bi-tve-Y  DIH  EC"  IT  FELATIVE  TO  THE  ORIGINAL  POIST. 

-  t""  ''nc"rF  npsuiTTKH  ijif  DTFFFPESCES  BETWEEN  THE  ORIGIRAL 

•;  t*:r:~  ***n  the  "w  **t*i«5»s  wi:i  "otst  is  "he  direc"i:s  op  increasin'. 

«->TSE  EX"CS"=E  rp 3  T"°.  :'CU.  AREA.  T  THE  DIRECTI^S  CF  "HE  GPAOIEKT 
"  V“C"'H  OF."E?'*^!:E.,;  ""S  DIRECT I-"*E  THE  PRCGRAN  ''ILL  PPCCEED  FOP  THE 
0  -"TT  "P T *L  POTS".  IF  "HE  ”0IS3  EXPOSURE  AT  THE  CPIGI3AL  POIST  WAS 

-  Ttvri  "HA”  "HE  snECIFT»H  CCS"C"R  VALUE,  "HE  PROGRAM  WILL  PROCEED 
t-  TuF  "  nTFEC"!'"’  AS  "HE  GRADIENT  VECTDP.  IF  THE  Va’UF.  WAS 

-  -•-inn,  7'ip  PHi'GRAH  "ILL  "R"CEED  IK  A  DIRECTION  OPP',STTE  THE 

r  n-'«o’ r”"  YTC"OP.  T!’IS  OR'TEOT’E  IS  REPEATED  1STIL  A  PFIHT  OU  THE 


~  > — JJT'-TJ  TH  r0””D. 


r  if  "ttf  :;r,nn  r'»OCSES  "HE  OP" I ”S  OF  HAVTKG  THE  PR^GRAH  FISD  THE  FIRST 
-  its  "vr,  "HE  «"*>£’  VILL  CHOOSE  THE  ""ST  HEA YTLY-HSED 

r  "’PT-V pp  RIMJI-’V  akh  C"**P*IT“  WSE  VAT HES  ON  A  I  TKE  C-MCIDEKT  WITH 
-•m  •*"”>’ AY  CErTF°LTSE  *’”""1  THE  CC3T”3P  VALUE  TS  FOUND  OP  IS 
•  fi""*  oo*  ~D  ST  TV"  S,'Cf'"SSIVp  KOI  SE  EXPOSURES  7  EVE?  COTPUTATIOSS.  I? 
r  Mr ISK  V**3"S  ARP  THEN  COSPUTF.D  BETWSEK  THE  TWO  POINTS, 

"  I”"Erp”LATIC”,  'O’""!  A  "ALOE  WITHIN  A  PRESPECIFIED  TOLER AKCS 

r  —IP  rr-.,Tr--,  rr-Mi.  r-»c  THF  I*’I"IAT  KCISE  1  EVEL  CONFUTATIONS 
"  »-"*•;  -ap  pt’!'-' A Y  CENTER?  IKE,  THE  DISTANCE  BETWEEN 
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‘"T'l'TV’ 

'•FFV'f'l  T«-  ..J,  ■'“*',11^  1. 


half  -hr  lf;:ght  cf  the  subject  runway  as 


Function  GENFN1 


FUNCTION  SERFS*  CY,Y,XX,N,T) 

r  ****************************************************************** 


C  GEKFN1  PERFCPNS  A  LISEAP  INTERPOLATION  CR  A  TABLE  T 

C  PESF-1  -  THE  CALCUL ATED  VALVE  OF  THE  DEPENDENT  VARIABLE  CORRESPONDING 

T  T°  THE  CAI ?  I  S3  A RGB BEST  X*  (ISDEPESBEHT  VARIABLE) 

C  nr.  -  INITIAL  PABATETEP 

r  V  -  ADJUSTABLE  SUBSCRIPT,  ARP  AY  DIHENSIOKING 

C  S*1  -  TEREINAT  PARAMETER 

C  X  CONTAINS  TAPLE  VALDES  OF  INDEPENDENT  VARIABLE 

C  XX  IS  THE  POINT  AT  WHICH  THE  FUNCTION  VALUE  IS  DESIRED. 

T  BnST  BE  STORED  IB  ASCEBDIS5  VAT DES  OF  X. 
r  I  PETUFSS  THE  INDEX  OF  THE  LAST  ELE3ENT  OF  X  SOT  .GT.  XX 

C  NO  TWC  ROBBERS  O?  X  BAT  BE  EQUAI . 

C  I  RANGES  PROt!  1  TO  T-1 

C  GPHF*»i -FUNCTION  SDBROnTTHF 

C  3EHFS1  T IKEAR1Y  INTERPOLATES  PETSEEK  TABOLAP  XT-PAIR  AS  A 

C  fusc-ICH  n?  THE  FCS** 

C  T=F(T) 

O  T  DETEPSISE  THE  VAI*»E  OF  T  AT  A  GIVEN  X. 

C  GENFS*  DOES  TOT  "SE  APT  EXTERNAL  SUBROUTINES. 

C  THEPE  IS  CEE  EKTPT  POINT  TO  GESTNI  AND  THE  CALLIKG  SEQUENCE 

C  TS:  REwFUi  (T, X,YY, S, I) 

C  WHERE 

C  T-A  TABLE  CONTAINING  THE  DEPENDENT  VARIABLE  VALUES  FOR 

C  ASCENDING  VALUES  up  TJIK  INDEPENDENT  VARIABLE  X. 

C  X=  A  •’•ABLE  CONTAINING  VALUES  CF  THE  INDEPENDENT  VARIABLE  STORED 

C  ASCFHDIXG  "RDER. 

C  XT-A  VALUE  «F  THE  INDEPENDENT  VARIABTE  FOR  WHICH  THE 

DEPENDENT  VARIABLE  IS  TO  BE  COKPUTED. 

C  T-the  KUXHEP  OF  VATn^S  CO RT AIRED  IN  TABLES  X  AND  T  ABOVE. 

C  I -ON  RETUP”  WILL  CONTAIN  THE  POSITION  IN  THF  X  TABLE  GF  THE  LIST 
r  VALUE  NOT  GREATER  TAN  XT. 

C  T«E  FONT ION  GENES*  IS  ”SE0  3T  THE  SUBPIUTINES  ATTENG,  P8EPR,  PHOFDA 
C  AND  SETPES. 

C  THE  INPUT  TO  GENFLl1  CUBES  ENTIRELY  FROR  THE  C.ALI  ING  ARGU3ENTS. 

C  G ERF"  1  HAS  ONE  EXIT  PETUPU  ST  »  TNE  RUBBERED  23  «*r  THE  SUBROUTINE 
C  LISTING  IK  SECTION  T.  THE  CALCULATED  VALUE  OF  THF.  DEPENDENT 
C  VARIABLE  CORRESPONDING  T«  THE  CATLING  ARSUHEK?  XT  IS  RETURNED 
C  THROUGH  THE  FUNCTION  RANK.  THE  CELT  CUTPUT  CONSISTS  OF  THE  CALLING 
C  ARGUMENT  I,  PREVIOUSLY  OISCUSSED. 
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FunctJ.on  GENFN2 


J.'**  /jv**'*' 


»*< */  •*•*•**«••**••**••**•** ** ************************************ 


■; f::f~  a«r,  a  '-n  : itsa?  ik-kroo!  atig*:  c*s  satrix  z 


I  PA’ICKS  FP~V  "•  T*  X-1 
.1  .i»:%;fs  F9-''.*  '  i-i 
•:c  ts r  vals  of  r  os  ?  -?  y  nr  fo*jal. 

I  -  I  AST  FITTEST  '■f  *  »"VT  5?  F.VTEP  THAW  XX 
.1  -  LAST  EIE.rSr-  a?  y  :,T?  SP  E'.TEP  THAT  YY 

c  xrr*;T\3"r.  rr'i's  rtF  *st  roDEp.  was.  dirfe  a  jascekd.  obder 
f  r  cattails  m:~E:;  of  ?i:d  P’oeo.  v.ap.  uIsek  ejdescekd.  obd. 
r  *-TPAD  -  gp'diket  "F  X 

C  PAH  -  SADIES?  "F  Y 

XX. YY  PP1HT  A-^  -HT OH  PHSCTIOHAL  VAI'.'E  IS  DESI3ED. 

•  ■  3  ctir  y«7"3s  OF  Y  AWE  IG?C-SI,T' 

r  ft  1  -  piA!:E  )  3C^  A/C  (  DIr.PMCETSl!T  FBO* 

'  'STI5jO,,‘i  2  T*3LE  r57r'Y 
<■  ?.Y"  -  ?.S  7.Y1,  ASCTA’  m»i) 


C 


3F.Srs:  *“:zr.  A  “-0  ’I-EAP  TTTFF ATIOS  f'S  1ATRIX  2 

X  COSTAITS  WAITES  CF  1ST  IKDEP.  WAS.  DIRKS  E  (ASCE3U.  ORDER 
»  lT”»:«S  WATT’S  ''F  2HD  ISDEP.  WAS.  DISKS  S  {DESCEHD.  OBD. 
XX. YT  P-'ST  ’’  WHICH  K’tSCTICSA?  VAI«*E  IS  DESIPED. 

■*EPr  TAIiF.S  nF  Y  A*»E  IGSORSD 
T  RA”r.F5  FP*'*  1  *->  Y-1 
I  PASSES  FPC*!  1  0-1 

"j"  -a’  •'r  <  ">p  y  sat  at  EO'iAI. 

SEKF"',-F',0C'*1'"S  S"H?riTl”F 

r.ESr*'~  PEPFCKTS  A  TX'J-DTEF-Or.IF.RA!  i  I  SEAR  IHTERP''?  ATI  05 

(Ecrr apo i An"!;)  ?' i  -a"tl\p  xt:  vA:,JK,rFji  pobctick  or  the  fibs 

?  =  rfX.71  ^ 

,.„rr„_  0CTS  »n7  »•»  FX-EPSM  STBPr'OTI'tES. 

-':Esp  IS  '--i  EFT  HI  PCIFT  TO  GEEFE2  AID  TBE  CALLI5S  SEQTESCE  IS: 

CFET?  f2,X,Y,XX,YY»E,K,I , JJ 

votsr 

7-TA31IAF  WAIVES  CF  TBE  DEnEKD£OT  WABIA3LE 

X-TAS**?  \P  V  AT  EES  IF  TBE  pIhST  ISDFPESDES?  TABIA3T  E  STORED  IS 
ASCF.EaiEr.  «t*OEP. 

Y-T?.B*”  AP  WAiBES  “F  TBE  SECOSD  ISDEPEKDEET  VARIABLE  STORED  IS 
PESCEODISS  0°DEP. 

YX,XY-7AirES  CF  "HE  FIRST  AHD  SECrSD  ISDEPEEDEST  TABIABIES. 

cESnEr;TI VE1  T»  F**B  WHICH  TBE  DFPESDEKT  YASIAB’E  IS  TO  BF. 

CAIC’IATFD. 

E-TOF  r**SBEP  o?  7»T"FS  15  THE  SXd  TA3IE. 

F-TnE  \7SHEB  CF  V.AI”ES  IE  THE  ATS  TABLE. 

T-cr  PITip*  COSTAir  THE  POLITICS  OF  THE  J AST  7ALUE  IS  THE 
TAB"  F  THAT  IS  *  ESS  *fl*3  XX. 

J-CE  BiTBPE  WILL  CCETATT  i“HE  PCSXTIOS  OF  THE  LAST  VALOE  IS  THE 
BY J  1  *BT  E  ■'■RAT  IS  LESS  THAR  YY. 

THE  CELT  SCESCOrlSE  TO  S  GEKFK2  IS  THE  F3HCTI'*S  ACSOIS. 

~.FrF”2  WILL  BE  USED  EASY  "IT  ES  K'PIES  EXECOTIOK  SHEE  ESEBSY  RETS  ICS 
>°F  CA1  COATED. 

AIL  IEP^T  DATA  "0  SESFK2  IS  THBOOGH  THE  CALLISG  ABGOF.ESTS. 
GEEFST  HAS  OSLY  C3E  EXIT  PETOPS  LOCATED  AT  LIKE  SOHBEB  51  OF 
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C  "'HE  SUBROUTINE  LISTING  IH  SECTION 

C  THE  VALUE  OF  THE  DEPENDENT  VARIABLE  IS  RETURNED  TO  THE 

C  CU’IM  PROGRAM  THROU'JH  THE  FUNCTION  HANK.  THE  VALUE  FOT  I  AND  J 


C 


ARE 


RETURNED  THROUGH  THE  CALLING  ARGUMENTS  AS  PREVIOUSLY  DISCUSSED. 


Subroutine  GRADIE 


55  "’BP  VTTNE  GPADTE  (A) 


r  *****  *************  ************  ************************************ 

I*  LOCAL  "  ARIAB*  E  DICTIONARY 

0  A  -  FIRST  TVC  ELEMENTS  APR  X,Y  COORDS  OF  POINT  FOR  WHICH  EXPOSURE 

'•  WAS  JUST  CAT  C’”  ATED 

”  *  S?  A  IIS  -  ASDS  EXPOSURE  VALUES  FROM  CALLS  TO  EXPOSE 

C  AS ;  MIS  “  ASDS*  (DOSE)  EXPOSURE  FROF.  CALLS  TO  EXPOSE 

0  FOLD.-  AS:A*:r.  EXPOSURE  FOR  FIRST  SEARCH  TOINT 

C  OP  A DU  -  "UTT  V2CTOP  IT  DIRECTION  OF  GRADIENT 

C  GRADES  -  GRADIENT  *  AGUTT DDE 

f HOLD  -  AS2AUS  SX»>OSURF  AT  A  (  AT  THE  ARGUMENT  LOCATION) 

^  M2  -  *ETRIC  ’.’UNDER  FOR  GRADIENT  CALCULATION 

r  UDS  -  SAME  AS  UCUS 

C  NEY?  -  EXPOSURE  AT  point  offset  from  A  BY  5  FEET 

C  'TRY*  -  EXPOSURE  AT  POINT  OFFSET  FROM  A  BY  ?  FEET  IN  OPPOSITE  DIRECTION 

'ICRS  -  N”EBEP  up  ubseRVERS 
0  KUMPP  -  NUMBER  CF  PRIMARY  EXPOS’JPE  METPIC 

r  THEY”  -  EXPOSURE  AT  CANDIDATE  POTNT  A 

C  VO  -  TABLE  CF  TEST  POINT  LOCATIONS  FROM  NVASDS 

0  GRADTE-SUnpODTIUE 

C  THE  SUBROUTINE  GP ADI E  IS  USED  TO  COMPUTE  THE  APPROXIMATION  OF 

C  A  7  ''CAT  N^ISE  EXPOSURE  GP  ADI  ENT  UNIT  VECTOR  AT  A  GIVEN  POINT  FOR 
C  WHICH  THE  NOrSE  EXPOSURE  VALUE,  USING  ALL  DEFINED  FLIGHTS,  HAS  JUST 
C  DFFV  C?M PUT^D. 

C  GRADIE  USES  THE  SUBROUTINE  EXPOSE,  VMAG  AND  VTRN. 

0  THERE  IS  ONLY  ONE  ENTRY  POINT  TC  GPADIE  AND  THE  CALLING 

C  SEQUENCE  IS: 

0  CALL  GPADIE  (A) 

0  *•'  HERE 

0  A-A  VARIABLE  CF  DIMENSION  ?■  FCP  WHICH  CHE  FIRST  TWO  POSITIONS 

C  PEINE  THE  XY-COCRDTNATES  OF  THE  POINT  AT  WHICH  THE  NOISE 

C  'XPOSHRE  WAS  JUST  CALCULATED. 

C  G” ADI E  IS  CALLED  SY  THE  SUBROUTINE  FIRST  AND  THE  MAIN  PROGRAM 

C  UriSE1.  IT  WILL  BE  CAT  L  ED  MANY  TIMES  DURING  EXECHTD ION. 
r  ’  THE  DATA  TNP"T  TC  GRADIE  IS  THROUGH  THE  CALLING  ARGUMENT, 

C  PREVIOUSLY  DISCUSSED,  AS  WELL  AS  LABIED  COMMON  BLOCK.  THE  FOLLOWING 
C  DESCRTBFS  THE  INP”T  VIA  THE  COMMON  BLOCKS. 

C  LABEL  VARIABLE  DESCRIPTION 

U  /GRDDI K/  AS2AN5  ASDS  AND  DOSE  NOISE  EXPOSURE  VALUES  FROM 

C  ASIANS  CALLS  TC  EXPOSURE  BY  GRADIE. 

C  /METRIC/  K’JMPR  NUMBER  OF  PRIMARY  METRIC. 
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n  o  a 


GPADTE  HA  ONL''  CK3  m"  PET'-FN  t.  ATED  AT  Li  HE  NUMBERED  35  IH 
C  THE  S'»B"<‘,fii  i«E  ’  IGTIHJ  TV  SECTTOI  r. 

TI!F  'VITPE?  fpoM  GR.ADI 1  'S  .’l!R<'  HiH  THE  t  \HLRn  i  CHIOS  BIOCK 
C  /GBADNT/.  THP  XY-COOnniHATE  OIPCEE^Tb  FOR  A  ONI”'  VECTOR  POINTING 
C  IK  THE  DIRECTION  OF  MA'TM.n  .  t>ease  Hi  fXpcs"PE  ARE  CONTAINED  IH 
C  THE  FIRST  TW"  Posin'"!*:  op  VARIAMF  GRADU.  THE  MAGNITUDE  OF  THE 

C  CCM'>,,'"ED  LCCA '  '"RADIS,  "  V  CTOR  IS  STORED  IN  tHe  VARIABLE  GRADMG  AND 
C  THE  ''HITS  APE  I*  HE  P’R  noT<  HHERt.  RF  'CRRESPONDS  TO  N EF ,T DN, CNBt, 
r  LEO.  MINUTES  OP  PEP.CEVr  DE°FNDIi.  i  <"K  t,.E  prihaRY  METRIC. 

T«E  S  ’HR-'H^IHE  GMDTE  IS  USED  TO  COMPUTE  THE  APPROXIMATION  OF 
»  I  OCA!  GRADIENT  UNIT  VECTOR  Vi  A  '.IViN  POINT  FOR  WHICH  A  NOISE 
EXposnRE  VAV’E  HAS  BEEN  C'MPPl’ED.  FIRS1  THE  GRADIENT  VECTOR  IS 
C  COMPETED  AND  THEN  thf  COMPONENTS  ARF  DIVIDED  RY  THE  MAGNITUDE 
C  CONVERTING  TO  A  UNIT  VICTOR, 
r 


Subroutine  HBT 


(SO  ),  'T,  ”m 


X1 , M'XI  ,  DT,D\",Oi  ,U';,D\S,nB) 


************  **<*  v.  *********-* .  ************************************** 

LOCAT  V A R I V  *5  OVI'”  - 

r  AX  -  X  CHORDS  ~F  A" !  i^FASE  ''CV"~  (BUGTNNNING  CF  RWY) 


r* 


r 

C 


C 

r 

C 

r 

n 

r 

n 

r 

r 

r 

r 

r 

C 

f  * 

r 


\tt  _  TRACY  ** °OwF*‘  ’  \  "’DF"  F  AVGIF  HIS^CT'P  )  C*  OSES'1"  SE3  CURVED( 
nn  -  riA'-AFY  M.'S*,  -iVS  T^I".  (?) 

D  -  D’lMMY  V  Ar T  A 3LE  FCP  CALLS  TC  CURVE;  ALSO  DISTANCE  BETWEEN 

■"wo.  ’’ox'rrs  on  seimskt  r""srsT  enter: 

o.A  -  ’■  C T S p  1  E^'E’  ORRECTT“>N  (MAX1  GEOMFTPY,0  FOR  STRAIGHT  SETS) 
DAS  -  NOISE  *  fiVE’  OnrF  EC"I*"J 

DAS  -  DI“T*  NCN  ATC"G  SEGMENT  FPCK  FAR  FND  CF  NW  AY 
DAT  -  DIST’NCE  ?.T0;',  track  FR'"J  DEGINNI»’G  ''t  R,,NWJ Y 
Dn  -  NOISE  LEVEL  COP-'RC'"I''N  (“AX?  GEOMETRY,-)  FOR  STRAIGHT  SEG) 
PN  -  DISTANCE  TO  SNGMHT  rr  TRACK  CLOSEST  CPIGIN 
PM  I N  r'P  EACH  "PACK,  I  HP  TENCH"  CF  THE  SHORTEST  STRAIGHT 

?F  CN "-HALF  the  MINIM'1*  TURN  RADIUS,  WHICHEVER  IS 
SM" LLEST. 

DS  -  DISTANCE  FP"M  ORIGIN  T"  SECOND  CITSET  SEGMENT  ON  TRACK 
DT  -  DTSTANCR  FP0V  ORIGIN  TT  Ct  CSEST  SEGNO))*  ON  TRACK 
DX  -  V3  OR  DM;  DEFINES  ANKARA  ROUNDARY  OF  CURVED  SEGMENT 
F  -  MGNTTVOF  CF  NOISE  ALONG  ANGLE  BISECTOR 
G  -  NOISE  TEV2L  CC R ? ECT I C”  FOR  SEGMENT  BOUNDARIES 
X  *  A  -  Tr-rp  Cn”'l'"EP 
TGC  -  ERROR  FLAG 

ITSEG.  (At  SC  USED  BY  OTHER  SUBROiniNES. ) 

ITSEG  CONTAINS  THE  N'1  MPER  OF  TRACK  SEGMENTS  FOR  A  GIVEN 

TRACK  IM  "HE  LOW  ORDER  5  LINARY  BITS  CP  THE  WORD. 

THE  "IOH  TRUER  1"  BITS  C<'»,TH‘)  INFORMATION 
REGA-’RDI'IG  THE  TRACK  SEGMENTS  FOR  A  GIVEN  TRACK.  IP 
Til"  TIT  TS  POSITION  A,  COUNTING  FROM  HIGH  ORDER  TO 
TCW  ORUEP,  IS  A  BINARY  0,  THEN  THE  SEGMENT  NUMBER  A 
IS  A  STRAIGHT  SEGMENT.  IF  THE  BIT  IS  A  BINARY  1, 

THE  CORPUS PENDING  SEGNFNT  IS  A  TURN  (I.E.  ,  CIRCULAR 
SEGMENT) . 

K  -  DU'**' Y  VARIABLE  FOR  CLOSEST  SEGMENT  NUMBER 
“  -  DUMMY  VARIABLE  FOR  SECOND  C1 OSFST  SEGMENT  NUMBER 

MASK  MASKING  CONSTANTS  USED  TO  RETRIEVE  INFORMATION  PROM 
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m \ x  1  -  RINVAY  NUMBER  "F  PRIMARY  NOISE  CONTRIBUTOR  (CLOSEST  SEG) 
MAXC  -  RWY  N'\M  oF  SECONDARY  CCKTRIB 

MAYS  -  TABLE  OF  RHY  !I"V.EERS  INDEXED  BY  TRACK  NUMBER  FCR 
PRIMARY  CONTRIBUTOR 
MAX?  -  AS  MAXS  FOR  SECONDARY  CCKTFIB 

KID  -  DISTAFCF  td  POINT  MIDWAY  BF.T KEEN  "WC  CLOSEST  SEGMENTS 
*»S  -  NUMBER  rP  SEGMENTS  1*1  t*RACK 
NT  -  TRACK  •I"WBER 

NTS  “  SEGMENT  M*!',VRER  FOP  TRACK  NT 
11TST  “  FLAG:  '1=CLC  SEST  SEGMENT  KNOWN 
PARAM  -  SEE  ABOVE 
POO  -  CURREir  POINT 

RX  -  NOISE  I  F” ET  CORRECTION  AT  BISECTOR  (MID) 

S’  -  DISTANCE  FROM  POINT  TO  MAXI 
S?  -  DISTANCE  FROM  PCINT  TO  MAX2 
SA  -  DIFFERENCE  VECTOR  BETWEEN  ROD  AND  AX 
TTD  THE  TOTAL  DISTANCE  FROM  THE  BEGINNING  OF  A  TRACK, 

IFC’UDING  RUNWAY  LENGHT,  TO  THE  END  OF  EACH  SEGMENT 
EXCEPT  *MIE  LAST  aNE,  FOP  EACH  TRACK. 

X  -  DUMMY  VARIABLE  FOP  CALLS  TC  CURVE  (DISTANCE  ALONG  SEG) 

XI  -  0  UNLESS  CLOSEST  SEGMENT  IS  CURVED 
XT1  -  I  E”G?H  OF  C*  ''SEST  SEGMENT 

XLC  -  LENGTH  OF  SECOND  CLOSEST  SEGMENT 

XX  -  DISTANCE  A"  "'NO  SEGMENT  SKI  ECTED  FOR  CORRECTION  (DEPENDS 
->N  GEOMETRY  OF  REG;  A*  CNG  MAX  2  TO  C’ OSEST  APPROACH 
FOR  tOQPEO  T”PN,  ALONG  SHORTER  SEG  FOR  HAIRPIN 
YV  -  AS  XX  FnR  ANOTHER  SITUATION  ? 

'•UT- SUBROUTINE 

THE  ROUTINE  HBT  COMPUTES  A  VARIETY  OF  QUANTITIES  ASSOCIATED  WITH 
GPC’l'-D  Tp^c  GEOMCTRY. 

HBT  USES  rHF  FUNCTIONS  AND  SUBROUTINES  CCNTF,  CONTG ,  CURVE, 
ST"\TT,  VMAG  \ND  VRU3. 

THE  S-’PPO''tt*;e  HBT  MAS  ONLY  ONE  ENTRY  POINT  AND  THE  CALLING 
SFO" VICE  IS: 

CALL  HBT  (PC , ?'t ,  jiTST , M  AX  1 , M  AX 2,  DT, D  AT,DA,DS, DAS ,  DB) 
v'lERF 

o/-i  VARTAB'E  or  DIMENSION  3  OR  MOPE,  THE  FIRST  TWO  POSITIONS 
OF  WHICH  A”E  "HE  VALUES  OF  THE  X-  AND  Y-COORIDINATES  CF  THE 
ANALYSIS  "C  TNT,  RESp ECT IVEI Y. 

NT-THS  GPO'P’D  TRACK  H” MBE R. 

XTST- INDICATES  VHETHrn  CTOSEST  SEGMENT  TO  ANALYSIS  POINT  IS 
KUOWN.  iv  NTST=?,  CLOSEST  SEGMENT  IS  KNOWN  NTST-2,  HBT  MUST 
FTND  ’’HE  C’CSSS”  SEGMENT. 

MAVT-THP  — *»DRP  Pr  the  CLOSEST  SEGMENT.  THIS  IS  RETURNED  DY 
HBT  T"  t H v  CAVING  PRUGRAM. 

KAS?*-?U£  NUMBER  "?  T!1E  NEXT  TC  CTCSEST  SEGMENT.  RETURNED  BY 
"UT  "*>  THE  CAV  TNG  PR^G  PAM. 

DT-THE  DISTA ”C E  TRO*  THF  AN  V  YSTS  POINT  TO  THE  POINT  OF 
CLOSEST  APPRCAC'l  °N  THE  TRACK. 

PAT-THE  DTST'NCE  FROM  THE  BEGINNING  OF  THE  TRACK,  RUNWAY 
TNCr'DED,  TO  T||C  POINT  "F  CI.CSFST  APPROACH. 

D'-CORKEC"TC*!  T""  NOISE  LEVEL  COMPUTED  FOP  SITUATION  FOR 
SEGMENT  «AX1  TIC  T  GEOMETRIC  CONSIDERATIONS. 

DS-DISTWcr  -"HE  ANALYSIS  POINT  TO  THE  NEXT  CTOSEST 

SEG  KEN”  (“AX"’). 

DAS-THE  DIET5 NCE  FROM  "HE  BEGINNING  CF  THE  TRACK,  PUNWAY  TO 
THE  P-'IFT  CM  MAX"  THAT  IS  Cl  OSEST  TO  I’HE  ANA’^STS  POINT. 

DR -cor PRC? I ON  TO  NOISE  LEVEL  COMPUTED  FOR  THE  SITUATION  AT  THE 
CLOSEST  JUB"  ' !:  MAX'*  DU1*  TO  GEOMETRIC  CONSIDERATIONS. 

•THESE  VAT "EG  ATE  ON’ Y  COMPUTED  BY  HBT  IF  IT  IS  DETEF.MIMED  BY 
l’«T  THAT  "HE  NOISE  COMING  KPC'  A  SECTION  WILL  SIGNIFICANTLY 
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8n>)  t'i  THF  NO*.Sp  PFCiN’C 
TH”  VARIABLES  COMPUTED 
«!M?  <v;T  Y  oh'TJ^m  7/**  c  *r 
rvp'SE.  HBT  «I’  T  DF  CALLED  .IAS' 
All  V A H I *. ?  1 F  INPUT  DATA  T 
« p<^** jjjjjj-hjj  ij.p  ^*;p  ’!7ST.  FTy; 

r'nr::  stock/trac”/.  the  folio 
STOPpP  T*'  "MF  BT.  ■^Ct'. 

'"'PIASIE  DSPCPr'riCr 
AT  n  r7"  !"*<«<  R‘*  MV \Y 

iTr.i;'  contains  TM"  v" 

i*r  \OK  TM  n',!E  I."1 
T!ip  HIGH  1FDFF 
RP7AU',DTNG  THE 
T!!p  BT”"  T’l  Pr‘ST' 
T  ON  ORDER,  IS  A 
IS  A  STRAIGHT  S 

—if  causes? 

S ^G * 

V*SF  ’V'Kn"  C.’KSTAT 


ED  BY  THE  NCPM.AL  CALCUL  ATICN'  US  IKS 
AT  THE  POTNT  n?  CLOSEST  APPROACH. 

HE  S',BPCUTI!iE  HBT  IS  THE  FUKCTI01:’ 

Y  TIME'S  DUR IMG  FXECt’-rTf'S. 

S  PRCVTDEO  TC  HPT  TiirO'JSil  THE  CALLING 
ED  DATA  IS  AJ  S"1  ACCF-  ’\7  FROM  I  ABEI.ED 
HTKG  DESCRIBES  THE  TA.i'LAR  DATA 


M  BERS  ASSOCIATED  VI'T'H  EACH  TRACK. 
MBEF  ”>F  TRACK  SEGMENTS  F^fi  A  GIVEN 
A  ORDEF  p  LIKAPV  BITS  CF  THE  WORD. 

1r  BITS  CONTAIN  INFORMATION 
TRACK  SEGMENTS  FnR  A  GIVEN  TBACK.  IF 
TICK  A,  COUNTING  FPCM  HIGH  CRDER  TC 
PTNARY  0,  THEN  THE  SFGMENT  NUMBER  A 
EGHENT.  IF  THE  BIT  IS  A  DINARY  1, 

IIG  SEGMENT  IS  A  — !PK  (I.E.,  CIRCULAR 

TS  ’"SEL'  TO  RET  FI  EVE  INFORMATION  FRCM 


CIS”  USFD  PY  CTHER  S"  BRC’^T  NSS.  ) 


’  P :  M 


jV'^nTI*'”  RKGA-PDING  EACH  SEGMENT  TN  EACH  TRACK, 
fon  t-pucv  ” V « E R  J  AND  SEGMENT  NUMBER  I 


TF  m.,r  gc-',  mpjjt  ys  STRAIGHT 


PARAV(',I,J,)  =  'r HE  X-CCORDINATE  OF  THE  START  OF  THE 
SEGMP””'. 

r’AP*M(2.I,J)  r  TUE  Y-COORDTNATE  OF  THF  STAPT  OF  THE 
GEGJ5E'!'". 

■'\RAV  ,  I ,  .7)  -  THE  IENGHT  OF  THE  SEGMENT. 

R  AM  {”  ,  T,  J)  -  THE  X-COMPORENT  of  A  UNIT  VECTOR 

n: '*tti:i-;  rv  tue  dipecttcm  of  "he  segment. 

PAPAM  I*  ,T,.T)  =  THE  Y-CCMPONENT  pF  THE  UNIT  VECTOR 
■  OFSCOTBED  IPC'E. 

IF  TSI  SEGMENT  IS  CIRCULAR 

=  X-CCOPDIK.ATF  OF  THE  CENTER  OF  THE 

rrnr- e. 

0  Ap  AX  (2  ,  T  ,  .7)  =  Y-COCPDTNA'rE  OF  THE  CENTER  OP  THE 

f'T'A  p 

u\RA*  (?  ,  I,  7)  =  RADIUS  CF  CURVATURE,  NEGATIVE  FOR 
“T  1H?  TU"KS,  POSTTI  Vp  FCP  I  EF t. 

RARAW  (•'  ,  I,  J)  =■  T"PN  A  MG*  F  IN  RADIANS. 
oAPA'T  ,1,  7)  =  ANGLE  BETWEEN  A  USE  JOINING  THE 
CP"TE?  HTTP  "H"  START  CF  THE  "’URN  AND  A  LINE 
Pot;;t-is;  rn  rlc  pnsiTVF  X  DIPECTION. 

THE  T^TAL  DISTANCE  FRCM  THE  BEGINNING  OF  A  TRACK, 
INC7  udxNG  RUNWAY  IENGHT,  TO  THE  END  OF  EACH  SEGMENT 
EXOEPT  THE  t  AST  ONE,  Fop  EACH  TRACK. 

•'•1TN  EACH  tF  ACK,  THE  IENGHT  CF  THE  SHORTEST  STRAIGHT 

O"  CNP-HAT  F  THE  MISI!*"M  TURN  RADIUS,  WHICHEVER  IS 
c( ,  ;  '  t  SST. 

THE  SUBROUTINE  HPT  HAS  ""vr  EXIT  RETURNS  LOCATED  AT  LINES 
'"’M8pPEn  1 "  0  AND  1 r f  IN  tup  SUB PONTINE  LISTING  IN  SECTION  5.  THE 
RETU-'N  AT  T  INS  NirPEP  "'"’l  TS  TAKEN  IF  THF  TIPST  SEGMENT  IS  THE 
f,p SEST  Tp  "HE  ANALYSIS  PCINT.  '"THFRHISF,  THE  RpT*JRN  AT  LINE  156 
TS  USPD. 

THE  CT"'"’  F ?rN  HUT  IB  THRESH  THE  CALLING  ARGUMENTS  AS 
'"'Vr^S’I  DISCUSSED.  in  ADUITT'IN,  THE  VARIABLE  NTS  IN  THE  LABELED 
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C  COMMON  BKCK/?H0  9T''K/TS  SE~  EQU M  TO  THE  NUMBER  OF  TRACK  SEGMENTS  IN 
C  ''‘HE  CORNETT  TRACK  BEING  ANALYZED.  T11IS  COBHON  BLOCK  WILL  BE  USED  BY 
C  S-’BROUTIKE  ''VRIsv  TF  ASDS  CR  DOSE  VALDES  ARE  CALCULATED. 
r  SUBROUTINE  HBT  COMPUTES  THE  EOT.’  OWING  QUAMTITIFS: 

C  .  iMIB  SHORTEST  DISTANCE  FROM  A  GIVEN  POINT  TO  A  GIVEN  GROUND  TRACK 

C  .  THE  SEGMENT  NUMBER,  III  THE  tpacK  DEFINITION,  FOR  THE  S EGBERT 

C  CTOSPST  TO  THE  GTVEN  POINT. 

C  .  THE  DISTANCE  FROM  "’HE  BEGINNING  OP  THE  TRACK  TO  THE  POINT  OF 
C  CLOSEST  .APPROACH  T'-'  THE  GTVEN  POINT. 

0  .  THE  N'JKPER  CF  ANY  SECONDARY  SEGHENT  «N  THE  TRACK,  FOR  WHICH  THE 

C  ”OISE  CONTRIBUTION  HAY  BE  SIGNIFICANT,  ALONG  WITH  THE  DISTANCE 

C  T*  THF  SECOtd.APT  SEGHENT  AND  THE  DISTANCE  FPOM  THE  BEGINNING  OF 

C  “HE  TPACK  TC  THE  POINT  OF  CLOSEST  APPROACH  IN  THE  SECONDARY 

C  SEGHENT. 

C  .  THE  K^ISE  EXPOSURE  CORRECTION  VALUES  FOR  TRACK  GEOHETRY 

r  THE  DISTANCE  TO  THE  SEGMENTS  ARE  COHPUTED  BY  THE  SUBROUTINES  STRAIT 
r  OR  CURVE  DEPENDING  CN  WHETHER  THE  SEGHENT  TS  STRAIGHT  OR  CIRCULAR. 

C  HPT  CALLS  THESE  SUBROUTINES  TO  PROCESS  THE  SEGMENTS  AS  REEDED  AND 
C  PETBRHTERS  THE  CLOSEST  AND  NETT  TO  CLOSEST  SEGMENTS  TO  THE  ANALYSIS 
C  POINT,  THE  DISTANCE  TO  AND  A’ONG  THE  SEGHENT.  THE  FOLLOWING 

PARAGRAPHS  DESCRIBE  THE  NOISE  EXPOSURE  CORRECTION  VALUES  COMPUTED 
™R  TPACK  GEOMETRY. 

THERE  ARE  TWO  PEASC^S  FOR  THE  DEVELOPMENT  OF  THE  FOLLOWING 
AT  GCPITHHS.  BEFORE  THESE  WERE  DEVELOPED,  THE  XCISB  WAS  COMPUTED 
USIN'.  OS’  Y  THE  C’ OSEST  TRACK  SEGMENT.  THUS,  IF  A  TRACK  MADE  A  TARGE 
t*”>':  SO  THA'r,  IN  S^ME  REGIONS,  TWO  SEGMENTS  OF  THE  SAME  TRACK  ARE 
C’ OSE  TO  TH*  O^INT  OF  CCOt’T  ATION,  SEVERE  DISCONTINUITIES  CAN  APPEAP 
I”  ~HE  NOISE  FUNCTION. 

THESE  CORRECTIONS  PEM'".’E  (OP  OEnPCE  TO  INSIGNIFICANCE)  THOSE 
DTSCrNTIl’nITIES.  AT  SO.  THE  STNGI  E  EVENT  NOISE  DATA  Ill  THE  PROGRAM 
ARE  F°R  A  SINGLE  S'"RAtGH"’  FLYOVEP.  C^KSBOUENTIY,  IF  THE  ’LIGHT 
TPACK  TS  CURVED,  THE  ACTUA’  NOISE  EXPOSURE  WITT  3E  GREATER  ON  THE 
INSIDE  THE  TOPS,  AND  I  ESS  ON  THE  OUTSIDE,  THAN  THAT  OBTAINED  FROM 
THE  ST-"P ED  TABLFS.  THESE  FACTORS  WILL  CORRECT  FOR  THE  INSIDE  OF  THE 
T"RN  r'WT  Y. 

MAXI  ^SEGMENT  N"MBEF  OF  THE  CLOSEST  SEGKENT. 

'■AX'  =SELMENT  HUMBEP  /,F  THE  ”EXT  CLOSEST  SEGMENT. 

SI  =DTSTANCC  FROM  ■’HE  POINT  *0  HAX1. 

SO  =DISTANCF  FROM  THE  POINT  TO  HAX2. 

D  =5?-S1 

U*  =T FNGHT  OF  '"HE  SHORTEST  SEGMENT  OF  THF  TPACK  CR  I/O  THE 
SMALLEST  TURN  RADIUS,  WHICHEVER  IS  ’ESS. 

DX  =DM/? 

G(D)  =  (D/OM)  0 

DA  =THE  DB  CORRECTION  IN  DECIBETS  TO  BF  ADDED  ARITHMETICALLY  TO 
THE  NOISE  COATED  FPCM  SEGMENT  MAX  1. 

PB  =>TH5  DB  CORRECTION  IN  DECIBELS  FROM  SFGMFNT  MAX  2. 


ubroutine  HEADER 


SUBROUTINE  HEADER  (NPT, XX ,YY .AREA ,FLTS, PCNT, IT) 

**************** ************ ******************** ****************** 

HEADEP-SHBROUTINE 

SUBRC’’TI1’E  HEADER  PRINTS  THE  COLUMN  HEADING  FOR  THE  PRINTOUT  OF 
CONTOUR  POINTS  AND  VALUES.  THE  FOPHATS  FOR  THE  HEADINGS  ARE 
C  VARIAB’E  SINCE  TORE  THAN  ONE  METPIC  HAY  BE  OPTIONALLY  SELECTED. 

C  HEADER  ALSO  SETS  UP  the  PRTNT  FORMATS  FOR  ITSELF  AND  SODROUTINE 
C  PL  IKE  WHICH  PRINTS  THE  DATA  LINES. 
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C  THE  SUBROUTINE  HEADER  USES  N*  EXTERNAL  SUBROUTINES. 

^  THE  SUBROUTINE  HEADER  HAS  TWO  ENTRY  POINTS,  HEADER  AND  PLINB. 

C  THE  Ff'VC«I”R  IS  THE  CALLING  SEQUENCE  POR  HEADER: 

-  cat:  header  <tnd) 

r  (.'HERE 

I**D  -  AN  INTEGER  WOE  WHICH,  IP  E00A1  TO  2ER0,  INDICATES  THAT 
,  HEADER  AND  DATA  ’INK  FORMAT  HOST  BE  DETERMINED  AND  SET 

UP.  IE  NOT  ZERO,  THE  HEADING  BLOCK  IS  PRINTED  AS 
PRESENTLY  DEFINED. 

THE  SUBROUTINE  METFIX  HAKES  THE  INITIAL  CALL  TO  HEADER  TO  SET  DP 
THE  ooTpiT  FORHAT  STATEMENTS  PC R  THE  COLUMN  TITTLES  AND  THE  DATA 
"TNE.  THE  REMAIN  NOISE’  HAKES  ATI  SUBSEQUENT  CAL’S  AS  NEEDED 
WHENEVER  A  NEW  PAGE  OF  CONTOUR  DATA  OUTPUT  IS  BEGUN. 

•"'IE  C‘i’Y  TNP'TT  HEADER  IS  THE  CAL’  ING  VARIABIE  IND;  ALL  OTHER 
"ECESSARY  DATA  IS  CONTAINED  I«  HEADER. 

THSnE  IS  ONLY  ONE  EXIT  R ETU R!!  FROM  HEADER  LOCATED  AT  LINE  NDH3ER 
"T’  IN  THE  SHDRCTTIHR  I ISTTNG  IN  SECTION  5. 

THE  07TPU 0  FROM  HEADER  IS  TO  THE  LIKE  PRINTER  AND  NO  INFORMATION 
TU  RFTPTNED  mO  the  CALLING  PROGRAM. 

THF  PROCESSING  PERFORMED  BY  HEADER  CONSISTS  OP  CONSTRHCTING 
"FCR-AT"  STATEMENTS  FOR  FUTURE  HEADER  AND  DATA  LINE  PRINTOUTS.  THE 
’’  ARTS  DIES  GSED  BY  HEADER  ARE  ALL  FILL  WCRD  HOLLERITH  DATA  AND 
n''SITIr"PD  BY  HEADER  DEPENDING  ON  THE  PRIMARY  METRIC,  WHICH  IS 
PRINTED  FIRST,  A’JU  ANY  ALTERNATE  METRICS ,  WHICH  ARE  PRINTED  ON  THE 
SAME  ’THF  AND  TC  THE  PIGRt  OF  THE  PRIMARY  METRIC  IN  THE  ORDER  OF 
TREin  ASSIGNED  N"MBFR  {SEE  SUBROUTINE  ACNOIS).  IK  ADDITION,  THE 
’’"SHOP  OF  METRICS  (K)  tq  BE  PRINTED,  A  T.ABT  E  (INDX)  CONTAINING  THE 
'  '>DE?  IN  WHICH  THE  METRIC  VA’GES  ARE  TO  BE  PRINTED  ARE  CONSTRUCTED 
F^R  ’ ATER  "SR  BY  P’ INF. 

*  SECOND  ENTRY  POINT  FCR  SUROOUTINE  HEADER  IS  AT  PLIKE  AND  THE 
'•’’’TNG  ARGUMENT  IS: 

CA”  P’  INF  (NP?,X,T,  AP EA,  FITS,  PCNT, IT) 

•■•HERE 

”"T  -  THE  HP '•HER  OF  THF  CURRENT  CONTOUR  POINT.  IF  HPT  IS  EQUAI 
ZSP'\  A  GIMG’E  ’INF  OF  MINUS  SIGNS  IS  OUTPUT  TO  THE 
LI Np  PRINTER  TC  TERMINATE  THE  PAGE  AND  NO  OTHER  ACTION 
TAKES  P’  *  CF. 

X  -  THE  X-OC-'FDmTE  OF  THE  CONTOUR  POINT. 

Y  -  THE  Y- COORDINATE  rp  THE  CCNTCUR  POINT. 

AREA  -  THE  CUMULATIVE  AREA  "P  TC  THIS  POINT. 

F"  TS*  -  THE  N”MBFR  "F  SIGNIFICANT  FT IGHTS  USED  WHEN  SEARCHING  FOR 
TUTS  P^INT. 

<-  PCVT*  -  THF  PERCENTAGE  '"F  THF  NOISE  THAT  THE  N‘1M3EP  f'F  SIGNIFICANT 
0  F* IGHTS  REPRESENTED. 

TT*  -  THE  N^^ER  CF  TTM  ES  THE  SUBP.CUTIKE  EXPOSE  WAS  USED  SINCE 
C  THE  ’ »S”  POINT  WAS  FOUND. 

-  ■* VOTE  THESE  AFE  DIA J'^STIC  VATUFS  WHICH  CAN  BF  INFOPMATIVE  IF 

<:  SOMETHING  GCFS  W»ONG  D"t>ING  EXECTICN. 

C  THE  P7.M.LT”  ?RP.'.p.\i  "gisei  Is  T,IE  eN7  Y  USER  OF  THF  ENTRY  AT 

r  P’lvr,  TT  IS  USED  TO  PRINT  A  DATA  LINE  OP  TERMINATE  A  PAGE  OF 

-  ?  X  n  ,rT. 

C  tmv;  X-PUT  nn  +  t  PROVIDED  BY  THE  CALLING  ARGUMENTS  IS  COMPLETE 


0  E'CFP''  F rj  "'HE  •»etoIC  VA’GfS.  “"MESE  ?.RF  RETRIEVED  FROM  THE  TABLE 
C  V»r  TN  LAB’ ED  COMMON  B’  -'CK  /METRIC/.  NOTE  THAT  THE  TABLE  VALUES 

f  TS  TGE"TTCA*  TC  THE  ~  ABLE  AVALS  ’’StD  IK  SOME  OF  THE  OTHER 
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ion  >  -J  n  i  >  o  o  > .  -i  -  >  *>  o  i  o  ■  >  o  o  o  n  n  ^  "i  "i  *>  o  o  o  i  o  ^  i  *j  ■>  o 


q-!pnr”ij-  j’lES 


<7  “HEPF  APE  TWC  EXT"  RETURNS  FRO*  pTj‘'E  ICC  AT  ED  AT  IISES  NUMBERED 

-  '”!i  »UD  T"  T:!f  S*lBPO*,TIUF  : ISTING  IS  SECTION  c.  THE  RETURH  A? 

r  *rsn  1a*  IS  USED  WHEN  A  PAGE  TS  TERrlKATED  WHILE  THE  RETURN  AT  LISE 
C  *»?:  TS  I'SED  AFTER  A  "".ts  ’THE  HAS  tl^ES  PRINTED. 

-It"  C'lLY  ■)!!?'» *,m  FRO",  PI.TVE  IS  TC  THE  LINE  PRINTER  AND  SO 

-  T"F-r«ATTC*!  IS  PET»PNED  tu  ‘’’HE  C'.J.T  ISG  PROGRAM. 

^  THE  ONLY  PB~CPSSING  PEP  TORY  ED  3Y  “LIKE  CONSISTS  OF  STORING  THE 

-  ^pTp-c  VALUES  TK  *  T!VIP''?APY  TABLE  IN  THE  ORDER  IN  WHICH  THEY  WILL 

y  p  ? 


Subroutine  HELG 


SUBROUTINE  HELG  (  KXX  ,  NS  X  ,  XIX  ,nj)IT,  XF.1 ,  A) 

C 

"  *************************************************<■*********#****** 

C  TCCAL  VARIABLE  DICTIONARY 

C  A  -  TADICS  OF  C!tRVA'"-JRE 


»: P  -  P ADI ASS  OF  ARC 

SELT  -  ANGLE  BETWEEN  POSISITVE  X  DIPECTIOS  AND  A  LISE  JOINING 

THE  CENTER  Rf  THE  CURVE  WITH  THE  BrGINSING  OF  THE  TORS 
KXX  -  PU11WAY  N"MBER 
USX  -  TRACK  RUBBER 

PAR?  *l  -  INDICATES  TI»ACK  SEGMENT  POSITION 

o’  -  PPCJBCTTCK  0?  TURN  STAPLING  X  CCORD  INTO  GROUND  TRACK  PLANE 
0"  -  PROJECTION  OF  TURN  STARTING  Y  CCORD  INTO  GROUND  TRACK  PLANE 
UNIT  -  U«TT  VECTOR.  DIRECTION  IS  TOWARDS  STARTING  POINT  OF  TURN 
”  -  NEGATIVE  tp  stsr  CF  A 
X' X  -  ARC  T  ENGTH 

XPT  -  PROJECTION  OF  EXPOSURE  POINT  ONTO  PLANE  CF  GROUND  TRACK 
VX  -  SIGNED  CCNPOvPNT  OF  ‘'NTT  VECO'rK  IN  DIRECTION  OF  TURN 
YY  -  SIGNED  COMPONENT  OF  UNIT  VECOTR  IN  DIRECTICS  OF  TURN 
HSTG  SUBRr*V1’INE 

HELG  C^rP'iTS  THE  Cl  POLAR  SEGMENT  VARIABLES  FROM  TRACK 
OEFINTTTO NS  T’.'  TMF.  TN?”T  DAT ?  (SEE  S'lBP'MJTINE  i!BT,  VARIABLE  PARAH) . 

THE  S"5FCUTTNE  USES  THE  EXT  EPS AT  SUBROUTINE  SGNP. 

T'IEPr  IS  ONLY  tke  ENTRY  ""r  HELG  AND  THE  CALLING  SEQUENCE  IS 
C,T  7  HE’  G  (KXX,  NS  X,  XI  X  ,  U NIT  ,XR  1  ,  ?.) 
r’lE^P 

XXX  -  THE  TPACK  NUMBER 
NS X  “  THE  S'"*BER  "'F  THIS  SKGME"T 
XLX  -  THE  APC  LEFGHT  CF  "HE  SEGMENT  IS  PEET 
UNIT  -  A  ""IT  VECTOR  TANGENT  TO  THE  F.ND  POINT  (N"T  THE  START 
POINT)  OF  T  IE  I  AST  SEGMENT.  UNIT  IS  Or  DIMENSION  3  OR 
YORE,  THE  FIRST  TWO  TOSTICKS  CF  WHICH  CONTAIN  THE  VALUES 
AF  THE  X-  AND  Y-  CCMPNENTS  OF  THE  UNIT  VECTOR. 

XP1  -  A  VARIAB’E  OF  DTMENSTC"  ’  0 P  MORE,  THE  FIRST  ?WC 

POSITIONS  r F  WHICH  CONTAIN  THE  X-  AND  Y-  COORDINATE  C-F 
THE  END  POINT  Or  THE  LAST  SEGHEKT. 

A  -  THE  H?.DI"S  ">F  0"RVATUPF.  TS  FEET.  THE  SIGH  CF  A  IS 

""SITIVE  FOP  A  PTGHT  TUPS  NEGATIVE  FOR  A  LEFT  TURN  WHEN 
DEFINING  THE  7" ACK  FRf  N  THF  PONWAY  OUT,  IRRESPECTIVE  OF 
THE  FLIGHT  DIRECTICS. 

THE  ONLY  SPBR""TTNE  T"  "SE  HELG  IS  FRA  KRD.  HF.i  G  IS  USED  IS 
GO  MV' KOTOS  WITH  XLINH  "C  DEFINE  GRC'JSD  TRACK  GEOMETPY  AND  HAY  BE 
C  *’GFH  MANY  tjmkS  D"P.ING  "'ilE  I PHRASE  OF  EXECUTION. 


o  n  n  n 


0  THE  I*' ?'JT  IS  '!'HR''-,r,.J  ""HE  CALLING  .ARGUMENTS. 

THERE  IS  "NE  EXIT  PET"RN  FP^M  HET  G  AT  USE  NUMBERED  2°  IH  THE 
0  SHBR'I’TirK  LISTING  II!  SECTION  "  .  THIS  RETURN  IS  USFD  UNDER  ALT 
C  IPO”  MST ANC  ES  . 

the  CHTi’T  DATS  FR” M  U°*  G  TS  PASSED  THROUGH  THE  CALLING 

*•>  chests.  is  addition.  appropriate  locaticns  in  the  variable  papam 
ts  tabtfd  ccrs^r  biock  /track/  m>e  initial  izfd. 

THE  ST’BPT-TTKE  HELC  COMPUTES  THE  XY-COORDI RATES  ''P  THE  C3HTER  OF 
C  THE  CIRCE  OF  WHICH  THIS  SEGMENT  IS  A  PART.  THE  SIGNED  RADIUS  OF 
C  ^  r’PE,  THE  AS  CL  \p  DISPLACE  BENT  CF  THE  SEGMENT  AND  THE  A  NGL  ?. 

C  n  F.TWEEN  THE  POSITIVE  X-DIPECTION  AND  A  LIKE  JOINING  THE  CERT  SR  OF 
0  THR  STAFT  POINT  CF  THC  THP*'. 

0  THE  XV-CORDTSATE  r  P  THE  CENTER  APE  CORPrTED  IS  THE  FOLLOWING 

C  N\K’*-P 
C  c"" 

T  *=- A/ABS  (A)  ,  WHErE  A  IS  T|(r  CALLING  ARGUMENT  AS  DEFINED 

•»-ABS(M 

.{_  t,it  (H.w.VHERE  ''SIT  IS  TKS  CALLING 
<>  v.-  ARGUMENT  AS  DEFINED 

X  =  X^"*  C)-(BI  (Y)  ,  SHE  PE  XRT  IS  THF  CALLING 
0  YC  =  XU  C!)*(DI  {'<)  ANGnM  FNT  AS  DEFINED 

•:  A"D  (XC.YC)  A?p  THr  COORDINATES  ~F  the  cehtef. 

C  THE  SIGNED  RADIUS  CURVATURE  IS  STNPIY  -A  SI”CE  THE  CALLING 

C  APG"MENT  IS  SIGKVISE  BACKWARDS  MATHEMATICALLY. 

C  the  ANSHI  AR  DISPLACEMENT  r>F  THE  SEGMENT  IS  THE  ARC  T  EN3HT 

C  DIVIDED  BY  the  RADIUS  AND  IS  EXPRESSED  IN  RADIANS 
-  Al  P=X’  X/ABS  (*) 

C  FINALLY,  THF  ANG’ E  BETWEEN  THE  POSITIVE  X-DIPECTION  AND  A  IINE 

r  .i~h:t»'3  "-he  centep  <‘f  the  cifcie  with  the  beginning  op  the  turn  car 

r  yp  EvPSESSED  .AS  FC  T ''WS 

DELT= ARCTANGENT  -X/Y 

C  VHEPT  X  A ” D  Y  ARE  AS  PREVT'"»SLY  DEFINED. 

0  tC.  CCBPHTP  THE  COORDINATES  CF  THE  END  POINT  -'»?  THIS  SEGHENT  THE 

r  VA'-'t5. BLP  Xpi  IS  MODIFIED  AND  RETURNED  AS  FOLLOWS 

o  xpi  (i)  =  yc  ♦  d  css  («.»:?  ♦  de:t) 

o  xH  c\  =  VO  ♦  ST"  (S.  ALP  ♦  DEJ  T) 

C  THF  SEW  TA "GEKT  "'3IT  VECT”E  IS  COMPUTED  AND  RETURNED  TO  THE  CALLING 


05-30-79 

05-3O-7S 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-73 

05-30-79 


:  PPnE.AM  BY  MODIFYf'G  T“«'  CAT  3 1*! 8  VARIABLE  HKTT  AS  FCITOWS 
r  1NTT  (Hi  =  -W  SIN  (V. ALP  ♦  DELT) 

C  ''NIT  (2)  =  -W  CCS  (W. ALP  ♦  DELT) 

Subroutine  INFORM 

SUBPD«Tins  INFf'P  H  ( MCDA  PP,  10DPRF,  HODNC,  BCDDEF) 

C  this  SUDRCTIRp  GENERATES  A  MESSAGE  TC  INFORM  ANYONE 
C  RE3 DING  the  OUTPUT  .-.p  MODEL  THAT  THE  USER  HAS  MODIFIED 
C  "-HE  AIRCRAFT  DATA  IN  ""IF.  DAT  A  DAS  E  OR  HAS  CPEATED  HIS  OWN 
C  AIRCRAFT  DEFINITIONS. 

C  THIS  SUBROUTINE  IS  CALLED  FRC«  SUBROUTINE  READIN 
C  PISHT  BF.FCHE  RETU,,N  TO  THE  BAIN  PROGRAM. 

C 

C  VARIAB’E  DICTIONARY 


C  I.H1D  -  CONTAINS  THE  WORD  iA  NDU 

C  TCr B  -  CP-NTAINS  CONNECTOR  FCR  MULTIPLE  PREDICATE 

C  I SUB  -  TrTAT  NUMBER  OF  PREDICATES 

C  ''.APR  -  PREDICATE  PERT AINIKG  TO  APPROACH  PARAMETERS 
C  MESS  -  THE  ENTIRE  MESSAGE  IF  ONLY  REDEFINITION  OF  A 
C  D.ATARASE  AIRCRAFT  WITHOUT  USING  ANYTHING  OUTSIDE 


7-48 


C  rf  THE  database. 

C  I^OUPP  -  INDICATOR.  IF  1  APPROACH  PROFILES  HAVE  BEE"  INPUT 
C  '•'■-DDEF  -  IIIDICATr'P.  IF  1  AIRCRAFT  DEFINITIONS  HAVE  BEEN  INPUT 
C  NCDNC  -  INDICATOR.  IF  1  NOISE  CURVES  HAVE  SEEN  INPUT 
C  NDPPRF  -  INDICATOR.  IF  1  TAXECFF  PROFILES  HAVE  BEEN  ♦l.’POT 
C  NFC  -  PREDICATE  PERTAINING  TO  *’OTSE  CURVES 
C  HPRF  -  PREDICATE  PERTAINING  TO  TAKEOPF  PROPILES 


05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

05-30-79 

n«;--*n-7Q 


Function  INSIDE 


T'  3TCM  r'’*'CTT'"1  TNSTDS  (P,/.  ,Y,N) 


-  **************** ************** A*********************************** 

o  loot’.  VARIABLE  DIC7T0"APY 

r  T>:<;inE  -  TRUE  TF  POINT  WITHIN  DEFINED  CONTOUR,  FALSE  IF  OUTSIDE 

-  .1  -  SET  ECTIrN  FT  AG  (SEE  ti;if  110) 

r  v  _  })»•<«  BE  R  OF  POINTS  IN  CONTOUR 

r  e  -  FIRST  TWO  LOCATIONS  ARE  X  AND  Y  COORDS  OF  POIR*  IK  QUESTION 

0  ?X  -  Y  VALUE  OF  POI>»T 

r  PY  -  Y  VALVE  OF  POINT 

c  F’vpF  -  ST  •'PE  vp  TINE  BETWEEN  CONTOUR  POINTS  C^SRST  TO  P 

2  X  -  APR  AY  OF  X  COORDS  REPRESENTING  CLOSED  CONTr’JR 

^  Y  -  ARRAY  OF  Y  C^RDS  REPRESENTING  CLOSED  COHTDJR 

r~  VIST  -  I"?ERCEPT  C*  PROJECTION  OF  P  ONTO  LINE  OF  SLOPE 

C  YY  -  V»LnP.  OK  -  INS  FOR  WHICH  X  Ept’AT  S  PX 

r* 

C  TnIS  FUNCTION  DETBPNIHES  IF  THE  POINT  P{P(1),P(2))  IS  WITHIN  THE  CLOSE 
Cn"T-'UR  W-JICU  IS  DEFINED  BY  THE  X  .AND  Y  ARRAYS  OP  5  VALUES  EACH. 

0 

<-  Tr  p  TS  C ''NT AT. JED  WITHIN  THE  CDWT0U3  ISSIDE=.TROE. ,  OTHERWISE  INSIDE 
r 

r  X-VAT'iE  OF  POINT  IN  QUESTION. 

r 

C  T“3TDE  LCGICV  FUNCTION  SUBROUTINE 

r  INSIDE  DETERMINES  WHETHER  OR  HOT  A  GIVEN  POINT  IS  WITHIN  A  GIVES 

C  C*  CSED  CC!JTC"3  DESCRIB'D  BY  THE  CC^RDINATES  OF  THE  POINTS  CN  THE 
C  corr-^R. 

C  VVSIDE  DOES  N^T  USE  ANY  EXTERNAL  SUBROUTINES. 

c  txjfpf  is  OW  Y  ONF.  ENTRY  TO  IKSTDE  AND  THE  CAVING  SEQUENCE  IS 

C  INSIDE  (P, X , Y,N) 

C  vnE*?£ 

r  O  -  A  V  API  AP-T  E  OF  DIHEUSIVN  0  OR  KC-RE,  THE  PTPST  TWO  POSITIONS 

r  OF  VFICH  ARE  THE  VALUES  <"F  THF.  X-  .AKD  T-  COORDINATES  OF  THE 

r  POINT  IF  QDESTICr. 

C  y  -  A  VARIABLE  OP  DINERS ION  S  dr  more  CONTAINING  THE 

0  X-CCORDINATES  "E  THE  CLOSED  CONTOUR  IN  THE  FIRST  N 

C  POSITIONS. 

r  Y  -  A  VARIABLE  CF  DIMENSION  11  OR  SORE  CONTAINING  THE 

0  Y-COORDINATES  CORRESPONDING  TO  THE  X-COOBDINATES  ABOVE  IN 

C  tHB  FIRST  N  POSITIONS. 

C  1  -  THE  NASSEF  CF  POINTS  IN  THE  CONTOUR. 

r  PPOTB  IS  THE  ONLY  SUBROUTINE  TO  USE  THE  FUNCTION  INSIDE  AND  WILL 

C  DO  SD  IF  REOUESTED  BY  THE  USER  TO  lO^K  FOP  THE  OCCURRF.NCE  OF 
C  DTJOTUt  CLOSED  CCNTCURS  HAVING  THE  SAKE  SETRIC  VALUE  (I,E. ,  KEF  50, 

C  CNFU  BO,  ECT.).  THIS  CAN  HAPPEN  WHEN  THE  CONTOURS  ARE  VERY  SHALL 


C  AWD  THERE  ARB  TS07ATSD  (NO*CR»\SSINa)  RUNHAYS  AT  THE  AIRPORT.  THERE 
C  BAY  RE  MANY  CALLS  HADE  TO  INSIDE  DURING  EXECUTION  OUT  HILL  ALWAYS 
C  OCCUR  BETWEEN  CONTOUR  COMPUTATIONS  AND  ORLY  APTER  CONTOURS*! HAT  HAVE 
C  CJCSED  (T.E.  THE  POINT  TS  THE  SANE,  AS  THE  FIRST  POINT). 

,C  the  THE  INPUT  DATA  TO  INSIDE  COMBS  ENTIRELY  FRC M  THE  CALLIRO 
C  ARGUMENTS. 

C  THERE  TS  ONTY  ONE  EXTT  RETURN  FROM  INSIDE  AND  IT  IS  USED  UNDER 

C  ALL  CONDITIONS. 

C  THE  OUTPUT  FROM  INSIDE  TS  PASSED  TO  THE  CALLING  PROGRAM  THROUGH 

C  THE  FUNCTION  WANE.  IF  THE  POINT  TS  WITHIN  THE  DEFINED  CONTOUR, 

C  INSIDE  IS  SET  TO  LOGICAL  TRUE.  IF  THE  POINT  IS  OUTSIDE  THE  CONTOUR, 
C  INSIDE  TS  SET  TO  TOGTC.U  F»I,SE. 

C  SIMPLY  STATED.  THE  PROCESSING  PERFORMED  BY  INSIDE  CONSISTS  OF 


C  COMPETING  ALL  OF  THE  Y-VALUES  ON  THE  CONTOUR  HAVING  THE  SAHE  X-VALUB 
r  7S  THE  POINT  OUESTION.  OF  THE  COMPUTED  Y-VALUE3,  THOSE  GREATER  THAN 
C  THE  Y-COrRDIHATE  OF  THE  POINT  ARE  COUNTED.  IF  THE  NUMBER  OF  VALUES 
C  GREATER  THAN  THE  Y-COORDINATE  IS  ODD,  THE  POINT  IS  CONTAINED  WITHIN 
C  THE  CONTOUR.  IF  THE  NUMBER  IS  EYEN,  THE  POINT  IS  OUTSIDE  OF  THE 
0  CONTOUR. 


Subroutine  LOAD 
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Subroutine  MESAGE 


:;-’L*-!''»'TIKE  EES AGE  {1 30. !I ,  IND  ,1  RET) 


•  ************** ******* *************************** ************** 


•  TS 1  —  PRROR  RUTH7*” 

TVO  -  SET  Tr  ?T  IE  13 ET  IS  *  ESS  THAN  OR  EQOAT  5  7.EP0 
IP5T  -  sxiT  F.ST"?;l  ISOICA”Cn 

-  vfs*gp  —  sunr— ’^inp 

"VIE  p-’TPTSE  rT  THE  SUBVCUTIBE  v. BASSE  IS  TO  OUTPUT  IKFORRATIVE 

-  *ks.;''ES  TO  THE  LINE  printep. 

vEStSE  DCFS  USE  ANY  EXTERNAL  SUBROUTINES. 

T«?  S’nP'V’TIN-  SESSSE  HAS  ?!C  T  ONE  EUTRY  PHIGT  AND  THE  CALLING 

'  sequence  is 

C'.TT  -*FSA".E  {*,*’,  IND.IRET) 

'  "HE'" 

*  ?.Evf'HT  T  rrA?Tr'N  T!*  CAITING  PROGRAM  FOP  *.!  *rER5ATE  fiSTURN- 
”  -  NESSAGE  >:ns?5?  T"  RE  PRINTED. 

:  i:‘P  -  SET  TC  rr~  IPS?  IS  LESS  THAN  CR  EQ’JAL  TO  ZERO.  CTHE38ISE, 

J*n  IS  UB’,''DTFIEP  BY  HESAGE. 

i»Er  -  ivdica— —  dtcta?ing  thf.  exit  return  to  use  and  hhether  of 

"OT  TO  F‘>f:IEv  1*13. 

TRET  >  C,  "0  SCOTFICA^ICE  TC  IND  AKD  USE  ALTERNATE  RETURN. 

-  rr~-  -  HODIFY  ISO  A!!D  USE  KORBAL  RETURN. 

I»r  <  o,  -ODIPY  I*‘0  \«n  usf  aiteruate  return. 

lessor  IS  USED  BY  THE  SUBROUTINES  BERGRD,  HIXPD,  PHOFRD,  NOISRD, 
;  s-Ppo.  ACU'*".  AFFORD,  ALTPP.O#  READIN.  SEVRES,  NEWB1X,  WIHDED, 

~  FEWPF3,  PHY33,  *  HD  TPAKRO.  THE  SUBROUTINE  RESAGE  HAY  BE  CALLED  BAIT 
r  ’■TBES  D-’RIHS  EXECUTION,  B7T  IT  USUAL! Y  RSED  TO  OUTPUT  MESSAGES 
:  PEGS  .-ntUG  EPF-P  CONDITIONS  BHIC‘1  HILL  ULTIMATELY  CAUSE  EXECUTION  TO 
:  FF  TEPSIUATED. 

r  "HE^E  APE  THFEN  EXIT  RETURN'S  FRCS  BESAGE  LOCATED  AT  LISES 

C  nn ,  '!C  A vo  C7  -F  1-HE  Slir.ROUTIFE  LISTING  IS  SECTIOS  5.  THE 

~  -> cK-nv  AT  T  INF  TS  AH  *7  TER*,A"’E  R3TUPB  USED  WHEN  1*10  IS  HOT  TO  BE 
T  -0  BE  ’•f’DIFTED.  "'IE  SETUP}'  »T  TIS3  U*  IS  AS  ALTERNATE  RETURS  ARD  IS 
C  *"'OIrTEO.  THE  PE— IF'!  AT  :THF  '■  7  IS  A  SCR.HAL  RETURN  AND  IS  US5D 
c  ‘F^FP  Trn  IS  '"'BIFTED. 

7  THE  C-T—*-"  FPC **.  VFSAGF  IS  TC  THE  LIKE  PRIKTEP  AND  THE 

r  '"'DTFIC''rI''S,  IF  I”DICA'rFO,  '"P  —IE  C*I»TNG  VARIABLE  IND. 
r  VO  ?FrCESSI!IG  IS  ^EPFOP.HED  PY  HESAGE. 

Subroutine  METFIX 


s.,?^  rr-FIX  ciErr'.  ig') 


******************** *********-*  ********************** ************ ** 

’••*0?.’  PARI  ABLE  DICTIONARY 

,TTFCr  -  C^P-RCTTOV  FACTCP  (SUBTrXCT)  FOP  EVENT  FXPOSCPE,  ALTERNATES 
MTvE  -  EVENING  VFI.'.HTNG  FACTOR,  ATTEPSATF.  METRICS 
•L Tar  -  TIGHT  HSI‘?HTTXo  FACTCP,  ALTEPSATE  METRICS 
-  n  ;pr  c^HNU’:" 

TS”  -  AITEPNAT*  PETROV  IB  CALLING  PROGRAM 


c 

r 


C 


c 


r~ 


<— 


c 

c 


c 

c 


c 

c 

c 


r 

c 

c 

c 


ITMP  -  BIAHK  FI*  LEO  vr»Rr, 

TYMZ  -  D'lf'fT  "A*»  FOR  i>p,,"CA? TO  11  CF  METRIC  NABS  *C  7  CHARACTERS 
-  —  ID  -  LIST  CF  “P??IC  SAFES  (LITEPAIS) 

*PTt  pv  -  T'jpt'snnj  0  7  EVE?  FOR  NOISE  MEASnRE 
r.STLIT  -  D7KMY  ’.'A?  FC 3  METRIC  BA^E 
'SFFCT  —  P',M'!Y  '.PS  METFIX 

-  BOMBERS  rtF  A -TE SKATE  METRICS 
*!-*?F  -  BOMBER  CF  PRIMER Y  METRIC 

PSMFCT  -  CORRECTION  FACTOR  (SUBTPACT)  FOR  EVES?  EXPCSUPE,  PRIMARY 
?»««£  -  Et,E!'T’J'5  FEUHTTBS  FSCTCP,  PRIMARY  METRIC 
■>SMPV  “  NIGHT  FLIGHTING  FACTOR,  PiiTRARY  METRIC 
*•*  FO?eS  -  “ST  ■SI'*  WFIGHTIKS  FACTORS  (EEERSY) 

TTrIY  -  GOnst"?!'!? 

T”pNT  OAT*  A”D  TNI-IAi  I3ES  A  VARIETY  OF  VARIABLES  A2D  INDICATORS  FOR 
“HE  “STFIX  SUBROUTINE  READS  THE  “ETHIC  SELECTION  CARD  FROM  THE 
•>SE  IK  '"THEP  SODRC-nTINES. 

•"HP  S,,RR,'nTIl!5  ME-FtX  CALI S  THE  S0BPOUTIKE  HEADER. 

“ETFTX  MAS  Ctl’Y  ONE  ENTRY  POIKt  AMD  THE  CALLIKS  SEQUEBCS  IS 
C>1L  METFIX  (S2FCT,*) 

V  tlPO  F 

"EFOT  -  ^SED  AS  TEMPORARY  STORAGE  BY  METFIX  AKD  SET  TO  /  BEFORE 
PETURrTKS. 

"*  -  !,FK'»PY  JOCATiny  It!  CALI  IBG  Ppr>GRAK  TO  WHICH  TO  RB?nas  IF 
EPROPS  APE  EHC^ITERED  IB  METFIX. 

ONLY  THE  ’’AIM  PROGRAM  MOISEI  CAItS  THE  SUBROUTINE  METFIX  AT  THE 
Vrnl‘":T**G  '»F  EACH  *T>K  TO  INITIALIZE  THE  VARIABI £S  ASSOCIATED  WITH 
vctrtc  CHOICES  AKD  CALCULATIONS  A HD  *0  I3ITIALIZ2  THE  HEADER  AMD 
DAT*  T I NK  FORMATS  F"R  THE  CPCDMIFG  COHTOUR  CAT.CULATIOMS. 

-HE  St,B?r"JTI,*P  ME-PIX  OBTAINS  ALL  OF  ITS  DA^A  FROM  THE 
"MP-RIC  CAPO"  IN  <PHE  riP^T  DATA  uECR. 

THE  SUBROUTINE  METFIX  HAS  TVC  EXIT  RETURNS  AT  LIKES  NUMBERED  37 
»«*D  *1  IS  ■’’HE  PPDGRAM  IISTTKG  IN  SECTION  S.  THE  RETUR3  AT  LIME  37 
TS  EPRr'P  PET’»PN  IF  THE  FIVE  CHARACTERS  IN  THE  PRIMARY  METRIC 
’’“'ST-TCH  *  PE  IMC'TPECT  AFO  HENCE,  THE  PRIMARY  METRIC  CAMHCT  BE 
nE-PF’»Hl»!FP.  THE  AT  LIKE  61  IS  USED  OTHERWISE  AMD  IS  THE 

S<'F’”  RFTnRM. 

TH  THE  OUTPUT  DA-A  FROM  METFIX  CONSISTS  OF  INITIALIZING  VARIABLES 
TV  -«E  t ABEIEO  COMMON  BLOCK  /METRIC/.  THE  FOLLOW IMG  DESCRIBES  THE 
V'RT'B’ £S: 

VARIABLE  DESCPIP-IOK 

PRMFOT  THE  VAIOE  TO  SUBTRACT  FROM  THE  FIRM  SUMMATIOR  OF 

SINGLE  EVENT  HCISE  EXPCSDP.E  AS  FOLLOWS 
::ef  -  8R 
IDS  -  47.4 
CS®u  -  45.  S 
LEO  -  47.4 
ASDS  -  0 
Or'SE  -  0 

THE  VARIABI E  APPI IES  TO  THE  PRIMARY  METRIC. 


C  AtTFCT 
C 

C  PRMWF 


C  PR  MV 

r 

r 


SAME  AS  PRFFCT  EXCEPT  FOR  THE  REQUESTED  AITERMATE 
METRICS. 

EVEKT5G  WEIGHTING  FACTOR  FOR  PRIMARY  METRIC 
(SEE  BELOV) 

KTGHT  WEIGHTING  FACTOH  FOR  PRIMARY  METRIC  AS  FOLLOWS 
HFP  PRMWE  ~  ■’.0  PRHWM  =  16.7 
ID"  =  1.0  =  10.0 
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=  3.0 
=  1.0 
=  1.0 
=  1.0 


=  1.0 


AT  THE 
ALTS’! 
^'’SPP 


rpji?  *]• 


SASF  AS  ABOVE  EXCEPT  FOB  SB! ECTED 
ALTERS ATE  SETS ICS. 

IP’aBRP  OF  PBI3ABT  3ETBIC 

5EF  V  1  1EQ  =  4 

7  9E  =  **  ASDS  =  5 

CSEL  =  3  DOSE  =  6 

SnsBEBS  FOP  A7  TER  BATE  SETBICS  AS  ABOVE. 


Subroutine  MIXRD 


— T.._  r::'i,=vr,T3"5!p) 


’  •'  VVIABL-  nTC~Tr*‘*f  T 

''-'T*"!  -  T'-'A"  infVi*  “IT  r*r?lT.".  '  ?r  PAT  ICES 
■‘■’F  -  rip,o  T-’pTr,  LASorrr.s 

'  ■'?  -  cM.n!"n  •i-»r?.*F"/TP*cr. 

vt p  -  R  C*?:'  T  !inM* f 

o— -  t,wty  K- ;  ’sr.3  7"  c?  f.af  cobtfets  cf  coesob  ntc-cs  asrrr: 
’•■*’**.**')! i  -  *■*<— u=r  r->7*r  a0-; 

-  ~r,’:Tv*‘  -tr~  •"> PFP1T’r"!S  F^S 

7.o','’r.2  -  f-^p-tva*  r.r.r  pat-itf  “peexticws,  atl  profiles 

C*C  -  IOCCI’— s  V<  CA7*-  AC” ITS  I5MOTCP  CSE2  BELCH) 
r;  * "  -  n*  *;;i-  rr<  ■  (r>-vjt\*  =  pr  EC) 

r ■ —  —  _  •*••?*)  J*r  tstr" 

*i;rj  _  prs-r  =T_^f;  j  t  rvp-  p**T  f’l LE  ( 

t-:te  -  "f?-11-  f:'o  1  ( 

» 7  -  r--*p».f  »“**  £  p»v“”  —p }  £i- 

T J“'*P  -  ?!'T'T  rri-*’  7A"T.1S1E  (SEE  BELOW) 

--r  _  TOP'S  p-— tp- 

_  » t -pp <r ’»■  r  'jP"np'; 

Tf.pii;  -  ::-’r«Ep  *r  rosiest  *,-fkay 

- ‘C  -  F*  in,  0T ST Z"  ("TSHFS  “F.TKFF-  C'TTS  3x  "ES=IX  AS3  ORSRS!! 

i”;  -  T?:-rr.  ~ 

--JC  _  u/'XS"  C"*c7 F  —"*?.?  ASSISTED  TC  COPSETT  A/C 
T-?C-C  -  FLIO!JT  OCFiri-TCr  -!.3!  F 

yyp  _  i**»V'r  -r  Ttiifi  T^FPCPS  ASST'»?^E0  T”  EACH  PT7SAF 
"Tl  -  TAFLF  rr  ~n\rr  “PC J?  KU7B2PS 
T-rci-  -  -r>AC?  n":> 

- V  -  ASSISTED  7.A*TAo:*'  T'** 

-  assisted  »  viable  safe 

7 y y ^  -  ASSTS'IE*'  7ASI!B*F  B?.3E 
itb*  -  sErr**n.\pr  *i  ack  toshe? 

•;  -  >;-T*njp  rtf  JOTTS  T'-TT"  ED 
•ASS  -  DECODES  TT^MC 
/ASF*"  -  A'* PE  01  A:?p?  DEC^nriG 
»t  -  s”S*,irsT  P9CFTT  E  E^EPFR 
**:»  _  p-JO^T’  F  /TT/BE° 

ST’K  -  AH'TM'B  T3.A!"X  T’rSEP 

>•’■1^1)  -  pofifT*  v  -j-tYigrp 
-  3<;  -  *•  ~.T  ^  *  r0^pl/!nMJi 
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S  .IV 

T***S 

?~PS 


-  TrT\r  a?°iv\- s/trac*  ) :n?rTy ( 

■'rip  -  s/r  pep^i'isavcs  ?Hr“l7  s:; 

-:’SF  '^fPATIC:::;  EHCKEE  oca*’  PT  FHKWAT 
n*"**  -  t^tat  *  f «ni«Gs 

TCTSL  T’.SECFFG 

T'"7*:  ''?SFJ'"Tr*,.s  TA.l-R  rjSFRS 

total  cpESATicrs 

TC—AJ  DEPA^rD’ES/TFACK  )  H''*,F7  T  ( 

-IX^D  -  s  to7^n“j*-^ 

-HE  p-:H?r^£  -f  s'7HP">“'T"F.  TIXRD  TS  TC  READ  DIF.F.CTLT  .ASSIGNED 
*IPr"Ar~  C  ?ET  *^I  ?*■  A*  T”I‘**?T  DATA.  APPROPRIATE  VARIABLES  DESCHIBI5I 
~HE  7?Er'*-I7KAI.  CD  APACT ERISTICS  T  THE  FI  ISHTS  ALCVG  WITH  Til' 

TF  o;»p»»A— Tr*"S  APE  C~*5STS  tcteo. 

*TXPD  "SFS  THE  S^RD^TT-ES  C7  PT AL,  DTPTA!  ,  EO"OPS#  HEWRED,  SORT* 
i"P  '•ES AGE. 

TPEPE  AFE  F°* 


£”-E?  FOISTS  TC-  -IXRD  ASO  CALLI5G  SEQBEKCE  FOP 


rtPST  °** 17  IS 

* »:  r-  r 


-*:xrd  (*,  fac,  ipyrp) 


*  -  S-T*»pt  ’"CA-I-'r  III  CAI’IRG  PP^-GRAT  TO  WHICH  TC  PE73RII  IF 

_«it  r-  -'•Tp-ri  5^1  -JM  »jyp3i 

■I~  -  a::  ’TUT*-'-'  TEI'.I::;  what  Tc*nc  with 


*HHE  ISCCF.ISG  -IX 


BA“- . 

i:-  r*.'*  =  5.  r -i<  r»A-A  is  corns  in  akd  as?  old  six 

n*TA  TS  DISCARDED.  IF  FAC  >  0,  THE  KFW  HI»  DATA 
C-^EFATICTS  A=E  ’"'7  TT**J  T  ED  0?  FAC  A*D  REP*  ACE  THE  O7  P  Sit 
a.VA.  IF  ~\C  <  0,  THE  SEW  SIX  DATA  IS  HOI  TIPI  IED  3T  /*AC/ 
AT  ADDED  T  -r-.ir  rt3  *IT  3;,ta. 

*  P"-"T  C'-'T-  IF  mc-P  =  a,.  =av  dat  vitl  be 

PITTED  A I  '•■HER  C*7?3*7-.  TF  IDn?  -  r  #  TSiE  aAs  DA?A 

?r,,  r:;^  r~,--  c'.pr;  win  ::ct  be  fritted.  if  idhhp  /  a 

*  ”•'  D^.rro  ir**?  tF  THE  F7IGHT  OEFmTTDr 

~*r*.E  T-»?.*C  -,ri  “  HE  “^EP  A—IOSS  -ABLE  TOPS  Will  BE  PRINTED 
Tl  DEr:-EO  ?*  7G”?s-  IV.  ADDITION  TC  ~:!E  SCFSAI  CDTPUT. 

— S“!r-:i-r  v:3p  is  ca77-d  '”fis  bt  the  bobfcttse  seapih. 

S  Ci7*ED  anr'  **  D  7  7  Hi  ISUr:'  -  T»  A T  r  CP  A  FT  f'^SPATITS  BATA  APE 

“  TVJI‘—  f  T“  -»  V  f**  •  n  V*  it-  -TT 

..  v-.?j  u,;  r  FACt  THE  IDp-T  3»TA  fcp 

DAr*  CI-'D.T  7 ••  -•■■■-.  n?«T  B»~A  DECK. 

••  -:ir  f»ct  sms  at  t.iees  r~H3EHsD  7#, 

A.  A*”7  ~c"  ;‘i  71:  t  STP^r*" “T*‘E  :7STi:— .  TV  SECT  I ''T  Ti*r  PETHF.E  AT 

?h  -r  ;>■  pp- »*-5  f*^"7* v  jna  ry  tsEB  <--n  V  if  r:i£  S-’TSEH  gf  deeiheb 

IT>-S  CEEIS  -"in.  T-If  TA'*1S  ST*~?A.»E  SI7E.  T.-IE  P5S  7F 

:  :  ■■ — =."  ~i!  CATS-  ETEr'”7l!'  V  T7  BE  TEPHIFAT'D.  TH-  RETttR  *  AT 

...  ....  TS  „,r.0  prr.n^  pes’t7ti7:j  id  tbc-rirv  tepsihatije 

r.  : -s ••;.-)  :f  •••a  ett^cs  a  =  =  defected  rr  th-  te??'7t  data,  the 

.  ..  7  7  '  ■  IS  S  rS7iT  S~T1=-  *  ;;  3  ^5;  pgr-)  Tf  ;??~JS  ARE 

-  -  7  *'  —  =T  - ,  — 

"TP  ■■'■'  77TP?  c-  ::si;:7S  '  r  I EFT ??AriC%‘  PP.IETED  C-E  ’HE 
n,T,  r:3.^  T-t-ta-  TTSTK-TS.  P.TIJO  CM7.S  EESPEO 

-*  ffc7  the  nr  decs  aed  deptai 


zt. 

T-  •  ^  zr-y  - 

-‘t'-' J  -  « - -  T.... 


4* 


I**-  TV. 


■»  *2*fc 


rpr°STT'-*TS  Am  “-SWAT  7TI7  IZATICS  TABLET 
"v  *1  <PD  "II*  07T?*:T  7HC  CGSTEFTS  CF  THE 


-  r*r  -  ~  • 


'dd: 

’•*  -  7*r':-rr:rs-7c*:  **,«:. e  r. ■»?\c  ahd  the  e**e3es  ~f  cpefatices 

D  FLIGHT  IF  PEaGESTED  TC  DC  SC  31  THf. 
CA ~“D  TV  t-:f  IABELED  COTS'”:  DIOCK 

*it  -  -5  Sf*  CCW*CS  HT  CCS  /^T \?IK/  -RE 

IE  THEI*  DESCFIPTI^rs 


*  Vi  J  -  y  P  S  7  * 


v  r 
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TTnr  AC 


-'-pAI  ■:  ■'p  DISTINCTLY  defined  flights 

A  "'M3"’  Cv'Mr at'!T"0  rr  Tri  2D00  DISTINCT  P’ IGHT 
T-'Er-IFTCVTCr  CADES.  THE  CONTENTS  OF  EACH  V<'Pi)  IE 
■•"T  “AP’  F  .AH  F  AS  F'*!  *  OKS,  WHERE  HI"?  F.Y  FIT  POSITION 
0  IS  ■»«»  *  E\.V  STfiHIFTcj"?  BIT. 


‘  pr^t-n*rM^  CAWTF3!TS 

■>-■■  •:? isf  r»*cw2  set  irF.',ER  minus  i 

'■  PCRRCrMAECE  PROFILE  NUMBER 

-it. ic  -.PC,'SP  TRACK  w’HBKR 

20-?-  ■”** ,ACK  SPC'P  VMDE? 

"OPS  ”;i->  -rT'.!'rFj  F”UD  Et'  r  F  ’’PEPATIONS  FrP  EACH  OF  THE  DEFINED 

f  "iL'.:rfi  T’.:  r  and  f'-r  alt  possible  metrics.  where  k 

•5  -j-?  T  AH  -  T'lF  l'PFP  ATI'NS/ IETF  TC 

i*  r- ■jijs-.o 7.117  T'i'F  IS  AS  FOLLOWS 

.. -n-  (y#T)  .  -cp 

r  M^S  («,-»)  -  ’  BN 

•  r<~PS  (*,’)  -  CEEL 

E.-TS  ( K ,  u  1  -  LEO,  ASDS,  DOSE 

7  tt  i-'C't’ D  BE  UOTFD  THAT  TM*  WOP  DS  CCIPATNED  I’!  THE  T  AB*  E  ITPRAC 
~  APS  \C’r'"HT.Y  Cl  ■Pp'jrt'F::)  IF  SUB FR  UT TEE  !! EWPED,  THEY  ARE  STORED 
r-  t tj-g  ,|,ABIE  BY  NUt,RC-,mTNS  U’XRDi 

0  PPCCFSSI "’C  PF.PF BREED  BY  MIXPD  CONSISTS  OF  SORTING  TUP.  F?  IGHT 

r  BEFI«TTTC“  TAUF  ImPP  AC  ’NO  THE  OPERATIONS  TAB!  f.  MOPS  ONCE  ALL  OF 

r  T [IE  FLIGHTS  MAVE  °.E EE  DEFINED.  THE  words  IE  THE  TABLE  ITPPAC,  EACH 

C  .ASSH-EO  To  BE  A  SING’  F  rUTOJFP  V.'.TNE,  AFF  SORTED  I"  DESCENDING  ORDER 
r  i’i!  I*  p  THE  VALUES  I"  THE  'r*.  3L  F  MOPS  APE  SORTED  SC  THAT  THE  NNKBER  op 

0  ’PFP'TICKr.  F'XJ  A  ?"  TSIIT  IS  IF  ?!!r  SAMF  RET ATIVE  POSITION  IN  HOPS  .AS 

(7  Tup  F'tSHr  I D  K  VT  T  F I C  A  TT  ’  M  I*>  ITnMC. 

C  Tr  E  SEC  CM  11  F''TP  Y  ’*!  •'tXPD  IS  .AT  PCK^RD  AMD  tRS  CALLING  SEQUENCE 

T.; 

C  CALL  PO'I-FO  (*  FAC,  IDO  HP) 

C  vMFPF  "l!-  CAT‘  TNG  *  BG'!F,"’TS  AP-  AS  PREVIOUSLY  DEFINED  IN  THE  MIXBD 
n  R^’TSY. 

C  ’’HE  S’!L)»r  •'TIFt.’S  CA1LED  BY  PCFTPD  ARE  ZF.RO,  NBE’PK ,  MESAGE,  AND, 

r  OY  nup  Y»’",  F’-’W'IY.  CL  S,,JR'VITTNF  NEW  “IX  IS  NOT  ACTR.AI’Y  C  AI-T  ED 
('  R”T  TS  EN'nEi’r.  J  AS  A  FORMAL  CCFT  IF U AT  T0N  OF  i’CMTRD  AT  THE  KEWMIX 
■  •  oi*f  py  P^T’IT. 

<-  '•EADJM  IS  T!!S  '.F’Y  SUBROUTINE  TC  ’'SE  PCNTP.D  AI  D  t'T'  HAY  BE  CALLED 

C  SEVrr  tt*«N;  0,'HT,*G  '*iir  INPUT  P'1  RASP  CF  execution. 

TUP  r,P’,T  TC  PCM-RD  TS  PRCVT  2D  FPCF  CARDS  IM  THE  INPUT  DATA 
•L  djjpv. 

r.  -up  P...J  Y  T*L"  PRC“  TUC  ?CMTRU  ENTRY  TS  DTPECTI  Y  ’NT0  THE  NEWMIX 

r  p-’tpv.  THE  EXIT  !*S’”'S”S  NT  LI.  BE  EXECUTED  FROM  NEW.NIX. 

<■  I'CMTPD  I,ITTT  ”  TZ  ES  THE  TRACK  TAKErKF  .AND  T  .ANDING  ’’TP  IZATION 

C  "  A  RL'-S  TnLp  AND  nERL  Pr  ;RRCmIV  JLY  AND  CCKPITES  AND  PRINTS  THE  SUM.  OF 
f  Tur  ”’'T’irr  prc  "■«*  ENTIRE  S!IT  CF  TRACKS.  ■’’HIS  IS  A  DIAGNOSTIC 
-  »nr»"T  VliTC’I  TS  •,Sr’F*'’  VI! EF  CHF.CF.I!.’.  THE  IFP'JT  D’T.A. 

0  ’•HE  ""! InD  E — LY  IN  “ i Y r  B'  T",  i’FWFIX  AND  THE  Cf.’LIMG  SSQUEUCF 


CA’I  N-VC*  1“  {*,  FAC,  IDUHP) 

••up-.-  cV  TNG  ARG’,UFN’'S  ?»E  AS  PRFVTCUSLY  DEFINED  IN  MIXED. 

NF*  “  t  Y  -SES  THE  KXTERMAT  S"  BP  r,'IT  INFS  SORT«,  MESAGE,  EQUOPS, 
C’PTAl,  A1JD  ''L'^ED. 

’•T'/UIX  TS  CA”ED  BY  S"BPO’'T  IN  E  READ  IN  ,.’D  TS  A  FOPMA* 

,  >vi'TN  .’ATICV  ?’P  mUE  LFTTY  A"  PCMTPD  AS  BISCUSSFD  JUST  PREVIOUSLY. 

rFADS  AirCRAFT  ’•?F,’ATTP'“S  DATA  FROM  THE  I N PMT  DECK, 
"UR’—GP  -HF  S’,Hr~"TT,'!:'  *1 E" ?  E  D ,  J”ST  AS  I  il  “IXFD  HPT,  THLKE  NIXRD, 


1  o 


?SST.;.,;  7>,F  to  "«F  F’  r  j’.IT  TPACKS  T'l  TMH  PROPORTIONS 

rvnrf"\T=:n  iv  thf.  tpac"  •’•\sucFr  and  landing  util  tea-"  ion  tables  tper 
'"n  pfp'  FEoPEC’rvr.’ y.  r*  * bpi^tok,  »;;d  again  "mt.ive  mixrd,  the' 
a*3dt*:g  p’?prr"-iA::cE  •a?cfti,_:  *’"-.p.ep  wilt  pe  computed  dy  newmix,  if 
wr’f ssa^y,  .vn  i;;r'’'T~n  int-'  t-h:  rt  to,wt  identif  io  atio  ;»  stoked  ik  the 
’■ab:.1:  ttp'-ac* 

rTHPr^xs-:,  NO"*!'  ^EPFORMS  Tl‘  E  SAFE  FUNCTION,  HAS  THF.  SANE  LXIT 
PF-’"i>:'S  V  "TCP  VI**  Pr  "  ;?D  Ff?  '""S  SAvE  REASONS  AND  PEHFDPMS  THE 
S  A  FF  V  Ar  TMAL r  INtTT.  ALT'7  A'!'I~"S  AS  THE  ENTRY  AT  MTTPD. 

"•’IS  FTN'*  E-Tpv  I'!  HIV*7'  TS  '  T  MEPGRD  AND  THE  C.AT  MHO  SE  3'JENCE 

L  S 

C*’T  NEEIf-7'  (•',  T  D" HP) 


"Ml  A  FOLKS' 


defined  is  the  rrxHD  catting 


SKO'E'TE. 

'»ERSTr>  "AT:s  T’lr  SUDI- "'"TINES  HPFTV,  MKSAGS,  AND  S^RT4. 

" S. AD T"  IS  T y  "SE?  OF  MFRGHD  AND  M A Y  CA’T  IT  SVEFAI  TIMES. 
■<cp;i,r.  -'fXEIVES  T TS  ;••->??  DATA  F^CM  the  DATA  CARDS  IN  "DIF.  INPUT 


?"D  'M!'’  7  '.'I' I  npniv'nv  OPEPATTOST  CE  THE  TABLES  ITPRAC 


.jip-.p  'r#  T«:  ext p  i'r"r,i:s  from  MFrDsn  located  at  uses  254  and 


-p  -up  s’"'"-  itt m-T.'i;:  t >:  section  *.  the  pstupn  at  use  2-su 

I  »*  T;;p<-r,  ->r».i,pv  p>ij- i?  n  ,|  p  v»  r  j’  1INF  Lol  IS  THE  "0°N.  AI  RETURN. 
-IP  p-pp.'-.K  C"  "ES  jr.D  IS  CANOE  THE  KOisE  njiys  S ET  N’<MU£S  TN 

S  'F  T'!c  "ABLE  TTPPAC  TO  A  DIFFEPENT  3""3EP  IF  IT  IS 

S—JT’  v  0"V  T -  *  IIVEN  "D  'IDF P  «HEPE  B"TH  V.AT  PE3  A R r  READ  FROM  A 

'  o'f'O.  THE  nESH’  7'A’'T  F’n:!?  IDENTIFICATION  AND  OPERATIONS  FOR 

i  'I  I  IF"'  APE  f'If;-  c.'MHtvED  ("P  MEP.5F.D)  WI"‘U  ANY  OTHER  FLIGHTS 
,  Th-  5\-*p  TDi— inc  ATT'  N  O'  DE  SO  TEAT  “HEN  MERGR  D  IS  DONE  NO  TWO 
‘..IT  IDEN'-TETCA-I'":  .'"DES  IN  THE  "’ABIES  I^PPAC  ARC  THE  SAME. 


Function  NBETW 


T  "STC  A.L  F'M’CTICN  N3ETW  (I.J.K) 


**************************+*  **  ******  ***  ********  *****  ************** 

T  -  ARRAY  Df  TEST  VALUES 

.1  -  I  OVER  BO" ‘.ID 
K  -  "PPER  BO':“D 
UDETK  -  TRUE  "P  F  AT  S E 


C  TUTS  FUNCTION  TS  .TnUE.  IP  A  TS  NCT  BETVEEM  B  AMD  C  ISCI'JSIVE. 

"  :.?c  NBE'Ffc  -  IDTICAI  F"NCTIOH  SUBROUTINE 

o  NORTH  DETERMINES  LOGICALLY  (I.E.,  TRUE  OR  FUSE)  IF  A 

C  GIVES  N”.MBER  IS  NOT  BETWEEN  TWO  "THER  GIVEN  NUMBERS. 

'  N B FT V  DOFS  HDT  t'SF  ANY  EXTERN AI  SUBROUTINES. 

■"  THERE  IS  ONLY  nNR  RNiPY  TN  NBETH  AND  THE  CALLING  SEQUENCE 

"  TS 

"  KBETR  (I.J.K) 
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y  n;rrr 

I  -  THE  INTEGER  VU"E  IS  OURSTION 
.1  -  T!!E  TS  rEGER  ICWER  EO'MtD 
K  -  "’ME  INTEGER  *’PPKR  BC”ND 

::usT''i  is  cai;ed  bv  the  subroutines  mepgrd,  profrd, 

•  *  --TSPD,  GP?*>D.  SC-”»PT.  ALTRRD,  PCNTRD,  NEWRED,  TRAKRD,  RWTRD  AND 
J  "TS'iSO. 

r  oue  IS'1'JT  TC  N3ETW  IS  ENTIRELY  THROUGH  THE  CALLI'.G  ARGHHEKTS. 

7  TIE' F  IS  OS!  Y  CNF  EXIT  RF^UR!!  FR^K  SRETW  A  ED  IT  IS  DSHD  UNDER 

Att  CONDITIO IS. 

tijc  r-tTP'JT  OF  NBETW  IS  R  ET”R!' ED  TO  THE  CALLING  PROGRAM  THROUGH 
r  THE  nt^c-iny  ;» A M E  AND  CONSISTS  OF  A  IOCAI  VATUE  TR*’E  OS  FALSE. 
n  i-i e  PT'CEESINC,  PERFORMED  BY  NBF.TV  CAS  BE  FOPT'LATED  AS  rOILOHS 

" U FT W  =  FALSE  ,  IF  J  <  K  K 


:  EBF.TW  =  T?'1E  ,  OTHERWISE 

0  <i !!  rr-  E  I.J.K  .APE  the  CAVING  ARGUMFVTS. 


Subroutine  NEWPNT 


.I-nEPOTIVE  NEHPNT  (i  ;o,  SOTS) 


****************  ************************************************** 

\ 

0  -OCA’  variable  DTCT  ic?:  5  p  y 

>'  A I  vc  -  CO»1TO'*P  Pnrsv  SE*VH  A  HSU!  AS  STEP 

-  A  KG  IF.  -  AUO-LAP  DISPLACEMENT  CF  test  PCIKT  FROM  PREVIOUS  POIKT 

'•  r>  -  GTE °  SI?. C  '»7.T'?.r*l  0C..i'O'Jc  POINTS 

-CT'  -  STEP  SI?F  "OTEPANCE  FOT  I  IVE.AP  SEARCH 
;n  -  *I!'EA?  SEARCH  STEP  SIZE 

C  ~  Z\ IF  COSTER  PCIKT  BETWEEN  ?  TEST  POINTS) 

Oh',r.  -  MA<in-4  at  t  o'-' AH'  E  OISTAHCF  EFTWEEH  CT.ITC'R  POINTS  (FEET) 

'.'j*  -  cC'In'r''P  SESfiEST  P AR> L! E1ISM  TOLERANCE 
r  7  -  TOST  EXP“S''RE  ' T  P^INT  RY 

C  'IMA'.’  -  J  AST  COM?'!'" OP  GRADIENT  VECTOR  COMPONENTS 

IG<~  -  EPRJF  RS'"nRN 
■'  T.IK  -  ICO?  0'»*;?E.R 

C  KK  -  MU'  TT?T  YIN?  EACTCP  FOP  TTFR  \TIrN  TTMITS 

r  r  -  ITEoA-!r.-  Tlrr  TIMES  T’LTIPLYIKG  FACTOR 

.•ey  _  »'f>TT,F  V  A ?  '*  E  AT  POSITION  OF  !’FXT  CONTO"fi  POINT 
"0  YC  -  TEST  ?Xr>'~S''PTv  IT  •' ) 

■'  "OYS  -  "EST  EXPOSURES  AT  priMTS  HO  TN  CURRENT  SEARCH 

r  -t Y7  -  TEST  EXPOSURE  AT  ”0  (BHAV'HT  NS  PRCBLE"  IS  P^ASC!’  FC  R  THESE) 

o  ■  pt.s  -  or0  "F  '"'tots  in  ccnt,'"S 

0  '■SCRC"  -  TAP"  0  CF  TTEPATT~N  LIMITS 

'•  "YS  -  '".-"PE?  rr  TJVJS  EXPOSE  HAS  ?rEN  CALLED 

0  -PTS  -  ;’"'IBTp  "F  SEGM"UTS  TH  CON R 

r  '•'ESA  -  PPI'.'T  SFA'HMI  ANGLE  STEP  (RADIANS) 

r  -n  -  RAT  pp'-p'ic;  T  •  CHECK  ?  A?  ALLFLI5  N  CF  CC!!T'',’F  SEGMENTS 

~  *  Y’CT"'  t  A  IN  IT" PE  r»p 

-  •'PP  -  ;)irpFt'S”<~ES  nva  ErN  X CCCFDS  OE  ADJACENT  CONTOUR  POINTS 

«  n.7  _  f- ps*’L  A"" ART  ycrpro 

o  -  o’*  *>t  PT  KfT'  IF  ,rXP')S*,RE  DT  rFF*,F‘,CFS 

r  TO  -  "ISS"  S*'ESS  AT  LOCATION  CF  NEXT  PCIKT,  CONTAINS  NEXT  POINT  ON  RET 

r-  -  SC*'\TC''  ~F?Y  ~F  '’EX'”  cpntcuf  pcint  location 
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rp  -  as  pur,  .sign  o-  x  coord  reversed,  coord  .-poer  y,x,z 

=  PTS  -  X,Y  COORDINATES  CF  TEST  PC-TI-TS  It.  CURRENT  SEARCH 
PO  -  CO'-PDIHA'-ES  IF  TEST  COKT^’P  .POINT  ("FFSF.T  FROM  XX, YY 
ACCCnDING  Tn  ANGLE,  P) 

t}0  -  nrFT'"T,E"CE  DETN  SEE  X,v  COCPDS  OF  KEV  PCttiT  AND  ARBITRARY  EXISTING 
"''*p  p'1!5’ T 


-  vrt?Ki: 

:g  ccp 

Y  OP  V 

R  XT 

r~  ^TC*’R 

pct 

*Y  - 

Viirr  -f 

SC"  “AT 

BETW 

FRN 

STARTIN' 

'fOT 

-  c^VCC**?  PFP 

rt)  -po] 

TpA’’ 

CR 

(SACROSA 

r;*v  T 

- 

•p  L’RR 

>p  T^Z. 

ERA” 

CE 

(CLL  B 

PER 

"f.T  T 

rn  -  •'PPOR  TO’ERANC 

n 

v  i  T 

-  C*^MTr * 

*!'  Af 

•it  (t  rv  f:  a 

V  » 1 1 

-  I^YPOS*’?5!  *. 

T  ??PV 

rp*?s 

CD 

NTC  P 

pr 

-  t'mt 

pvp^f, 

•(U  C* 

■*  » 

sis'!  :p 

EXPOS 

*!i?  *,  DI 

F 

r**  ^ 

RS 

Y  - 

r>t>EV  I  ■"'!!' 

!’  Y  CO 

rot 

•1  ATF.j 

•#  *>  ^ 

ccopDi: 

’ATE  " 

P  I>  S) 

XV*T 

-  TEST 

LX^OS 

•tr  p' 

XX  - 

ALIAS  ’ 

')  i1) 

X7  - 

A*  LAS  r 

’D  (1) 

\7Z 

■“  31  *•* c  ^ 

vre  re? 

3  FT 

KEEN  PO 

AND 

Y  - 

nf  S7 

IIV  CO 

^  ^  “  D 

RDI 

UATRS 

* 

coin'll' 

;  \  m  ^  ^ 

*  ->o 

m:\-i  f 

'30 

“  -  DTFFR  ’KNOR  B”"VREN  P  P’"  "  AND  TEST  POINT  iVPC.'VJPES 

.'vvn.'T  —  SUPR I'*’1 

Dlfp-ft;  rr  j-3p-->TtrE  ”  ES'PKT  TS  TC  FIND  SJBSEQUSKT  POINTS  ON 
’  C'"T--!R  CNCR  -I**  FI'K’'  I'rr  HAS  PLSV  FOUND.  Tt! T S  SUBROUTINE  TS 
'BED  F  "p  '!?F,  ”)■’,  ONE*,  ">n  ’  Eo  CO!!T~iJRS. 

CMis  c  rnpr-’T sgkp,  vt”:;,  vs"b,  vino,  vsag, 

" r. ,  ds^d,  >:,o  rxr'v;'-. 

TU"  s’lnsc  iri”E  secret  c?  ;  ~ “e  sk~fv  pcxkt  and  the  following  is 

'"'IF  CA’LTNS  S "()" rVCF: 

C’’*  p.,?  ^PXS) 


*  -  'ISN'-.RY  ’"CATION  TN  CAL’  I’.’G  PRCSPAR  F^R  ERR"R  PETl'RH. 

•■p,"s  -  'p,m:  ’"•''aep  'v  ~c:tr,'''n  tints  that  »avf  a’r^ady  been 

CO" 

^\r>:  aR^T-AE  "•'IS'-*  IS  THE  Cf’Y  "SER  OF  SUBROUTINE  l.'SKPNT 

-’I~  .>;>!  n^-.nf  ‘K'ISr1  IS  TUF  v  USER  OF  SHOP  DUTINE  NEWPNT 

■p  ”1  —  1  CAL!  I*"  MAN'  TTNES  DURING  EXECUTION  TC  FIND  CONTOUR  POINTS 

:  "-f,  -on,  ,  o:t  ’f<j  C'*>!r”«rs.  if  asds  cp  dose  contours  are 

'T"S  •'0“f*-’”ED,  Tli  N  S"‘icO’,TI  VE  NEWPNT  WILL  NO^  BE  ”SED  AT  ALL. 

* ’'!'*■*  *:!r  :.'F.irFp  : r  points  (nptsi  in  the  calling 

!  -jii-pvts.  Ti;o  t"P”T  T”  S’’ BP  '**T  I*'E  F^WPST  TS  PROVIDED  BY  VAPIABIES 


T Z'r~’KD  ’•■•'■rCN  H’.'"CKS. 
r*~  m  c** 

S’.  TK  V  A  u  I A .)]  H 

/ok/  to:  •> 


/’  cops/ 

/SC"  A  C 11/ 
rn«^r.[ 

BLOCK 
/P*  "'TP/ 

/GP  ADNT/ 


VA^IA 3L  ! 
DE*  S 


THE  Fr  LLC NT NS  DESCRIBES  THAT  DATA. 
DESCRIPTION 

COKTC’J"  FWRCF  TOLERANCE  (NEVER  CHANGED). 
FONTD"JP  ERFCR  TOLERANCE  (SOMETIMES  CHANGED 
PY  NR VPN  D . 

CCKTO-tn  VALUF  (LEVEL). 

'IPST  GUESS  AT  POSITION  CF  NEXT  POINT. 

KIT’  CONTAIN  NEW  POINT  OK  NO? MAI  RETURN. 
PREVIOUSLY  COMPUTED  COORDINATES. 

DESCR IPTICN 

••:axiv,,m  alkwabie  ’'Tstance  between 

CO NT0"R  POINTS  (FEET). 

’AST  crNPrTED  UNIT  GhADlEKT  VECTOR 

r-p  ^00''CK'TS, 
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o  o  n  o  n  o  n  n 


C  "HOPE  ARE  SEVr"  EXIT  RETURNS  FRO'!  THE  SUBROUTINE  NBWPNT 

C  "  ->C«"ED  AT  1INES  NUMBERED  c8,  UR,  85,  125,  134,  153,  AND  21?  INTHE 

C  S'Wr'.lTTNE  LISTING  13  SECTION  c.  THE  RETORN  AR  MUR  53  IS  USED  IF 

"RE  SEARCH  PATTFPN  COMPLETE!*  FAILS  TO  FIND  THE  CONTOUR.  IT  IS  AN 

FPR'"»  RETURN  TAP;  TTNG  FORMER  COMPUTATIONS  ON  THE  CURRENT  CONTOUR. 
TPS  RET'Jpr  A"  LINE  7“  IS  ALSO  A”  ERROR  RETURN  HAVING  THE  SANE 
COl!3F0"SNCE  AND  IS  USED  IF  THE  irHBL'H  OF  TRIAI  POINTS  HAS  BECO.NE 
FKC°SSI VF.  THE  RETUP"  AT  T  TNE  85  IS,  LIKEWISE,  AN  ERROR  RETURN 
"3 ED  WHEN  THE  B0S3F.P  OF  INTERPOLATION  TRIALS  BETWEEN  TWO  POINTS 
RFC'1  VES  FICF.SStVE  DUE  TO  A  DISCONTINUITY  IN  THE  NOISE  FUNCTION.  THE 
RETUPN  '?  LINE  1 20  TS  AN  ERROR  PET'JPN  USED  IF,  13  GENERA!  ,  THE 


r 

c 

r 

r 

C 


c 


N-'ESOR  CF  TRIES  AT  FINDING  A  NEK  POINT  IS  EXCESSIVE.  THE  RETURN  AT 
LTN-  1  >4  IS  A  UNREAL  R2"'’:>t:  AND  IS  nSEL‘  IF  A  POINT  ON  THE  CONTOUR 
"’S  DEE::  POUND  AND  THE  N'/.'.BF.R  OF  PREVIOUSLY  COHPUTED  POINTS  IS  LESS 
"HA'’  SIX.  THE  RETURN  '?  TINE  113  IS  THE  ONI  Y  OTHER  N08BAX.  RETURN 
AND  1.5  "SbD  WHEN  A  POINT  01.  THE  CONTOUR  HAS  BEEN  FOUND  AND  HAS 
>?SSED  THE  *  OOP  CHECK  SEQUENCE.  THE  RETURN  AT  LINE  017  IS  AN  ERROR 
RF.TU°V  AN J  IS  USEO  WHS®  THE  PROGRAM  FINDS  ITSELF  !•»  »  LOOP  AND 
CAS"C"  FIND  ITS  WAY  OUT. 

THE  "UTPHT  OP  SUUR''"T  1"E  NF.WPNT  IS  SIHPLY  THE  .DSITIOH  OF  THE 
"EXT  CONTOUR  PC' IN"  WHICH  IS  PASSED  TO  THE  CAILINC.  PRCGRAH  THROUGH 
TUP  '•  API  \B*  E  RC  13  THE  LA0E7.ED  COdHON  BLOCK  /r  OOPS/  AND  THE  NOISE 
VALUE  AT  THAT  PD11'”  WHICH  TS  PASSED  THROUGH  THE  REAL  VARIABLE  NEY1 
T"  "Mr  *  AT”T  ij  /SCR  A  CM/. 


i-[p  r»=»  <- f  •  T '•  3  PEPF"1?"  ED  BY  ''3prUT  TNE  NEW  PUT  IS  DESCRIBED  IN 
<■•  ~hf,  OARA3RA’>:i,5. 


?CVT  „HK  cOKTrrj P  IS  AVAILABLE,  THE  FIRST 


c 

r 


r 

C 

r 

r 

r 


ST?  TS  "r  DE"E9''I!'E  ""  E  N*I3E  G"  ADT  rTT  AT  TMM  LAST  PCINT  KNOWN  TO 
nr  «n“l'.  Ti;r  X'tI'!TV  A**  Ff?S  TS  THT”  V.*PS  TN  A  DIRECTION 
TRn!:,,D!C,«LM1  T  THE  50  IDT  ENT  A  Hi)  AT  A  DISTANCE  (THE  "STEPSIES") 
■■•(TCU  '1*3  nrrr;  r n.~r prpn  »•;  *.*]  Tfp’iT  |i;ct  FTG'.'RF.).  TF  THIS  FIRST 

"fl  «?•*  nv  »ap  cviTT,  S,T  PS  ROM  F’"T  ;UESSES  a  RE  HADE  BY  PQTA7TNG 
■\rc,t',p  i>;|;  !  AST  5C'D  ■»"  IE?-  T  I  IS  nr  ".A"  ""N  ls  dCNE  u;  TWO  STEPS  OP 

i",  'r  •  uirr^TTCV  tha-,  acco°din3  to  thf.  gradient,  should  cause 
"MF  ••'■ISC  EXPOS'* 7°  A AC!!  THE  CTT^UR  V.\TT’E.  IF  THIS  F.AIIS, 

"HE  STr->ST~.E  IS  MAILED,  LF  NT  HP  INCREASED  TC  ’0  ,  AND  THE 

rT'iv"  PF."’cA"'FD.  Tr  "RE  ~::r'!'D  ROTATION  ’’’AILS,  "HE  STEPSI2E  IS 
','L'’rr>  ••yjf,  »«.->  -Ilf  i'f»T  puj*  \i* pp  FOP  f<yip  STFUj  'F  ’0  .  TF  THE 
" I  PC  TJ"Ir  H  FAX’S,  THE  S"E?HI7E  IS  tHALVED  AGAIN,  AND  THE  POINT 
...  nn  sxrns.  T-tr  -~STO'»r  prj?:T  HAS  STILL  HOT  PEEK 

v.T  r  s-r-.  HALVED  ACM".  Tf  r!l  IS  F'CT.,  THE  CCNTO.’P  IS  DEI  ETED. 

'.’it I’  0  "'M!p  A*>OVE  SHAT''  Is  BEING  PERFORMED,  A  CHBCV'  IS  MADF  FOP 
C«rs".T”3  "HE  rr'-T""?.  TF  IT  IS  OP’SSED,  THE  CCNTOT  POT”T  IS  THEN 
nr  it;;  n  ny  hOP;:\Tj  '  T N" EPPO'  A? TON .  AFTER  A  PCTENET.AI  POINT  MAS 

PFE"  F,-'”’'D,  CM  EC  *3  A®  2  Mins  "r  VEP.IFV  THAT  THIS  POINT  TS  NOT  ACROSS 
s  pt-tf  ->r|  j”IFT  up  "HE  C'NT—'R  FPC  1  THp  T  AST  CDST'',tr  ?OTHT.  IF  IT 
TS,  "ME  STFPSTZE  TS  ’•  AT  VFD  ?.«D  THE  SC?SCH  PBOCEDupF.  IS  REPEATED. 

"HIS  I*’S'TES  A  FATTUr  'I  "RACKING  CF  THE  ACTUAL  CONTr  UR. 

••‘•nr i  r *•  p t  A T CTpr''' WST*  "C^S  ,  I"  TS  POSSIBT  E  F0R  "ME  CCSTOUF 
SEAPCil  PE";RA1'  f  DEC'"'".  CAUGH"  TS  A  TCCP  IS  .A  DIS.»NT  PART  OF  THE 
C'" N"C A,-D  VEVEF  RF."'.,RN  TO  TUE  STAR"  POINT  (SEE  FIGURE  FOLLOWING 
F-~R  !*'  !»'.»?»£  7"  "."C!  A  SIT”*TIC.N).  A  LOOPING  SITUA.TICN  IS  DSTECED 

sy  r"r?Anr’G  a  pd^evtiv  nfw  okto”r  point  with  paips  of  points 

•-IF7ADY  DET?."MTNED  "C  MS  "N  T‘!E  CCNTOUP.  IF  "HE  NEW  POINT  IS  WITHIN 
r»p."pi!Ti|  r  r  -]ir  t’*P**T  STEPS"".".  CP  A  STPAIGHT  LIDHE  GO  I  KING  .A  PAIR 
r F  C^NSECTI''".  C''*,Tr,u'»  ?0T NTS,  "MEN  "HF  PROGRAM  IS  TOPPING.  TO 
rrpprrr  TME  SITUA"ICU,  "HE  PROGRAM  PETl’RNS  TO  "HE  LAST  GCCD  CONTO”R 
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n/ T.vi  i-p  -r?3t!TPS  ?,,p  ;:rr<;e  E'pcs'jPF  A1'  A  F7L1  CtRCI  F.  OP  24  POINTS. 
0  THE  G'DI’S  rtF  THE  CI?C:  2  IS  ’.e  TTXES  THE  CURRENTLY  UPDATED 

S" EPSIZ'1.  THE  SEARCH  IS  SECT:  KITH  THE  POINT  I”  THE  SAKE  DIRECTION 

o  *.s  i”*p  3nr'*r,  ccriTC’H  (nee  following  fights).  after  all 

c  r>^x:: »*S  TUF  CT’C’ F  HAVE  BEEN  Cy«?’JT?n,  they  ARE  EXAMINED  TO 

"  7CTEr'!lIVH  A* I  PLACES  'M! E°~  THE  COKTC'P  CPC-SSES  THE  CIRCLE  OF  POINTS. 

*-  f~  sue  i  cont-m:?  cposst.:^  ape  then  examined  it:  pevetsf  order  tc 
.*•  P»TPr'*T'iF  TF  ”I,FY  .ASF  O'!  A  PREVIOUS!  Y-50'MIP  POPTTON  OF  THE  CONTOUR. 
f  ■’•HE  CIP:;T  LEV  Cr\'’ PC-IV”1’  F~"j:0  IS  CHOSEN  AS  THE  NEXT  CCNTOnR 

pc  T*»T.  IF  VC  POIN"  TS  FC’V D  AND  IF  THE  RADIUS  THE  CIRCLE  IS  LESS 
•"lit"  THE  T'PHT  STro  flT7. v,  THE  search  TS  REPEATED  WITH  A  RADIOS  EQUAI 
t~  T"E  PI’’P"T  STEP  3IEF.  IF  A  LEV  POINT  IS  STILL  CAKSO"  BE  FOUND, 

■>_  tip  tji't;  AE'RTED. 

"HE  FOLLOWING  PARAGRAPHS  WILL  DELINEATE  THE  SECTIONS  OF  THE 
SiiBR-'nTTNE  *;EVPV'T  TH.A"  PERFORM  THE  PROCESSES  JUST  DESCRIBED  (REFER 
tp  t it P  s"nt?p-tTXKE  LISTING  I!!  SEOTICK  c)  . 

’TEE  OR  THE  VOTS3  EXPOSURE  VALUE  AT  RC  IS  COMPUTED  (SIGNIFANT 
ft  IGHTS  o*>’  vj  . 

LINES  PS  r r  ct.  n-;(P  vORF.f  SE»PCH  PATTERN  IS  EXECUTED  (SEE 
PPEVIC’IS  FIG'iRE). 

’TUI'S  (-2  TC  77  CHECKS  APE  HADE  T*  SEF  IF  .A  pc.TENTI.AL  CONTOUR 

pet*.  T  TS  ACROSS  A  FINGER  OR  INLET  It!  mHE  CONTOUR. 
TINES  ’1  TC  10’  REPEATED  INTERPOLATIONS  BETWEEN  TWO  POINTS 
WHICH  STEAD  UIE  THE  CONTOUR. 


C 

r* 


7  T  N  E  S  1  U  e  TO 


’THUS  1  34  TO 


LINES  A  SR  TO 


LTHES  ?1R  r 


”0  ADOITIC NAT  FINGER  AND  INLET  CROSSIN 0,  CHECKS  AND 
t-'TEPANCE  CHECKS  USING  .ALL  DEFINED  FI  IGHTS  AT  A 
p-'i'ENTI AL  CONTOUR  POINT. 

PCTEVTTA7  CONTOUR  POINT. 

11-3  CHECK  PCTEtTIAl  CCNTO'JF  POINT  FOR  LOOPING 
CC HDITIOVS.  THE  PROCEDURE  USED  IS  NEARI Y 
IDENTICAL  "0  THF  KETHOD  DESCRIBED  IN  SUBROUTINE 
CKT  n0P. 

’A-7  ALTERED  SEARCH  PATTERN  EXECUTED  AFTER 

DETERMINING  EXISTENCE  OF  ’DOPING  CONDITIONS 
(SEE  FIG'iRE). 

’37  OINCSITION  OF  POTENTIAL  CONTOUR  POINT  FOUND 
BY  A’TEPED  SEARCH  PATTERN. 


Subroutine  NEWRED 


^v.-ry’Z  -UvnuD  (I  jcl  ,  IGcr  ,NCC,  IV  ,CPS  ,  FAC  ,1  CC,  ID'HP,  WE,  VS, 
ITTIIOT") 

l' 

i--.p  " \  v  .A\7\ 

r  ’•'*7  -  TnT.AA  C-EBIVED  OP?.R’TTr':s  )  EVERYTHING  ( 

C  _  rrT-yi_  v PU "  ~ F  it SS"R  ic? FD  OPERATIONS  )  DAY/  EVE/  NIGHT  ( 

-Tf  -  TOTAL  !’-,."r’"v  CF  ’HSTRICTED  TAKEOFF’. 

:  T'TIO  -  7'TV  N’VBEP  ’F  RESTRICTED  7 ANDIHGS 

r  —  HSTr  -  ic’STY  AP’V,  ”"M.aER  CF  OPERATIONS 

C  TPF’.Y  -  ’.C'lK'ip  AFG>  ..DEP.AR  PU  FE_  RKY  TO  _ AHRT V  AI  _  RWY  N USHERS 

IV  -  fpt.CK  GF. 'a” ’  •r’HUE'.t  <  ”*?nOFTT  v  NUMBER. 

r>  '05;  -  »;■* :*  13 p  '•f  r' pon An’TCN G 
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n  n  o  n  o  o  o  n  n  n  *■>  o  n  o  rj  o  o  o  o  o  o  o  o  n  .->  o  o  o  o  o  n  *>  *>  "5  ■>  *j  o  ->  o  i  r.  1  o  n  *i  "5  .->  n 


EQ'">.;  -  F'VJTV.V  PKT  D\Y"IMV  OPERATIONS 
DEN  -  T?3EL  APRAY  ID.  AY.E.VF.NIKG.t..  IGHT( 

_  iYFCF.-FT  S' wc 
uppers  -  b,!;’.3”3  cc  profit  f:; 

-  »r*3EF  r?  A  FI  CP  A  FT  ) DEFAULT! 

V'C  -  VMBER  DEFIUED  A INC PA  FT) LOOP  COUNTER  ( 

”"C  - 

IT AC  -  A I "CRAFT  TY"E 

TTPK  -  T"ACF  N"-?BCR 

•'PFF  -  PROFILE  1.3.  (CP  D I  UAL) 

t  app  -  P  UTI-JER 

irn  -  er0"'’  r  ai.atu  subscripts  bounds 
sec  -  eotse  curve  if'mber 
I",U  -  track  GROUP  T*MDSP 

FAC  -  FUDGES  ATHCRAE'VruMFER  CF  CPEPATICKS 
T  -  SUBTOTAL  "DERATIONS 
[p  -  puNVAY  "':.v PEP 
>;?  -  PROFILE  V"  '.PER 
YT"T  -  TCTAL  AN’:’«ST  CPEPATI'I’S 
”FVREP  -  SUERCTIT? 

•'•HE  SUBROUTINE  EE’!" ED  READS  THE  AIPCRAFT  OPERATIONS  DATA  FROM. 
TIIF  INPUT  DATA.  IT  ASSTCIATFS  THF  AIRCRAFT  NUMBER  KITH  THE  NOISE 

rip-vr  number  and  ft  tgut  *»fpfcrm  ancf.  data  with  stage  lengiit 

,  N FOP  I*.  AT  I  Oil.  REV  RED  HAS  ALTERNATE  ENTRY  POINTS  AT  EQ'CPS,  CLRTAL, 
P-p-A*.  AND  ACUPDT. 

NEW" ED  USES  THE  SUBROUTINES  M. ES AGE  AND  FBETW. 

T!IE  S'’BR"”7INE  KEVRFD  HAS  THE  FCTI OSINS  CALI  INC.  SEQUENCE: 

CALL  NEVREJ  (*,  *  ,  SIC,  IV  ,C  PS,  F  AC.  LCC,  IDU.MP) 

''  HF~" 

*  -  MEMORY  LOCV'I*'*:  IN  CALLING  PPCGRAH  FOR  RETURN  IF  ERRORS 

APP  PNCC’KTEREP. 

T’.:?’’T  DATA. 

*  -  HEBOfiY  LOCArlCJ:  IK  CALL  IN  5  PROGRAM  FOR  RETURN  AT  END  OF 
NC  -  NCTSE  CURVE  SET  H’JFSFh  RETURNED  TC  CALLING  PBOGRA.N  BI 

’•f-;k?d. 

IV  -  VARIABLE  of  DIMENSION  R  which  contains  the  flight 
IDENTIFICATION  CODES  CONSTRUCTED  BY  NEW RED.  (SEE 
SUBROUTINES  MIXED  AND  NEVHIX  WITH  RESPECT  TO  V ARIABIS 
I'FpRAC. ) 

'PS  -  V  A°I  ABT  E  "F  DI1EN3ICN  2U  CONTAINS  UP  TO  A  SETS  OF  DAY/ 
EVEFIKG/NI JHT  OPERATIONS  NULTIPIIED  BY  THE  CAII 
ARG"NENT  FAC  (BELOW). 

FAC  -  OPERATIC”'.  MULTI??  I  HR.  (SEF  CPS  ABOVE.) 

L"C  -  TF  =  1,  CALLING  PROGRAM  IS  KEWMIX.  OTHERWISE,  CALLING 
PROG  PAN  IS  BIXPD  ANC  LANDING  PROFILE  NUMBER  BUST 
ACCOMPANY  LANDING  OPERATIONS. 

IDUNP  -  IF=-,  RAW  INPUT  DATA  NOT  PRINTED.  OTHERWISE,  IT  IS 
PP'KTED. 

THE  SUBROUTINE  KERF"?)  IS  USED  BY  THE  SUBROUTINES  BIXRD  AND 

UEWMLX.  SINCE  NEVREU  ONLY  READS  ONF  INPUT  DATA  CARD  PER  CALL,  IS 
GILL  BE  CALLED  AS  EASY  TINES  AS  THERE  ARE  MIX  DATA  CARDS  IK  THE 


03-29-7S 


IN  ADDITION  TC  THE  CALLING  A? GU KENTS,  KEWRED  GETS  ITS  INPUT 

DATA  FR"?  THE  R’U  UFCK  AND  FROM  DATA  TABLES  IK  I.ABELED  COBBON.  THE 
FCLLrl'I*!G  DISCUSSES  THOSE  TABLES. 

CUFMC” 

pU-Xf  ’’AKIAB’  E  DESCRIPTION 
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C  /Mt XDTA/  l?t{ft,'0)  NUMBERS  IKDICATlliG  NOISE  C*JR VE  SETS  AMO 

r  PERFORMANCE  PROFILES  FOR  V?  TO  50  AIRCRAFT 

C  TYPFS  AS  FC-7IOKS  ASSUMING  AIRCRAFT  TYPE  I. 


I.A(1,I) 

MCISE  CURVE 

SET  KMHBER 

\ 

(7,1) 

PROFILE 

FCR 

0-500  NAUTICAL  BILES 

n 

(3,  I) 

PROFILE 

FOR 

500-1000  NAOTICAI. 

f 

MILE- 

t‘ 

(",  1) 

PROFIT  E 

FOR 

1000-1500  NAUTICAL 

MI"  ES 

r 

(Ml 

PROFILE 

FOR 

150O-2500NAUTIC AL 

r 

MI’  FS 

r 

(:.  I) 

PROFILE 

FOP 

2500-3500  NAUTICAL 

« 

FILES 

r 

0.  I) 

pprFIT S 

FOR 

3500-"500  KAUTICAI 

C 

MILES 

i— 

(a,  I) 

PROFIT  S 

F">:< 

a 300  ♦  NAUTICAL 

HI*  ES 

;;  s  c  LARGEST 

AIFCF AFT 

DEFINITION  SOMBER  WHICH 

r 

u  AS  BEEN  DFFIKFD 

(- 

-ally  c-<:n:.  at 

IV F  C  PER ATIOMS 

FCR  DA Y/SVENING/ 

(”,•>,•0)  ” I SHT  , 

LANDING  AND  n 

TAKECRF  STAGE  LEMGHT: 

C  F-E  UP  T-  50  DEFINED  AIRCP AFT  TYPES. 

r  vcf  vaptarte  oESO^iPirc': 

C  /~FW  T-P(0’»>  DErirp!)  TRACKS  HAVE  A  PUMAWAY  NUMBER  15  THIS  TABLE 
!*•  IN®  S.V*H  PCSI“I"::  AS  THE  •’'-'.CK  NUMBER.  OTHER  WISE,  THE  VALUE  I!1  A 
r  ''<~:;TTI-?::  TS  L'7'AL  T*  riP:.  REV  RED  DSHD  THIS  VARIABLE  "C  CHECK  THAT 
:  :  VSEB-VED'.’LBTED  -  >\CK  HAS  BEE’:  DEFINED. 

~  /b(;«vaY/  C",T\T',S  "  HE  T  ENTTHS  OF  THE  Ft’XKAYS.  ’JSED  BY  SEWPEO 

r  \ S '-tTT ? r  t;h”  ■" AKECKFS  H"'E  ETCUGH  ?CC“. 

•;  /.’R'rIT  /  PR-M^.I-I,’"  »  AIRCRAFT  PERFORMANCE  FROpr  ES  USED  IS 
rr I'lVCTIC"  -■it  -he  TENTHS  AS  DESCPIBDED  ABOVE. 

.  — HE  '•»:*•< AY  LESj-HS  AS  DESCRIBDED  AH07E. 

o  n  vr’r/  »•’.;?* o,  ~ *  5)  ru'*'”  a riv  e  day/evening/nigm?  operations  fop 

-  T.’Kg'FF  Aro  ’  ViDT”'.  -2  C"R  EACH  DEFINED  RUNWAY.  ROMWAY 

-  •'~il:zati<‘::  '>:*>c~,‘tascs  will  be  computed  fpch  this  table. 


f  T!!FM 


p{ tt  ret”- :s  t::  subpoutue  newred,  located  at  lines 


I'  ’••'-nEREO  “1,'.  1  »'*D  p:  in  the  p'tpcn  Jttse  IISTI’IG  in  SECTION  5.  THE 
C  "EV’PU  A-  LIE-  21  TS  AM  ALTERNATE  RETURN  USED  VfHElI  THE  EKD-CF-DATA 

-  ?  ARM  (A  R’  AMO  CAT")  T.i  -  FAR  MY  NSWhFD.  THE  REl'OR'1  AT  f  IMS  99  IS  AM 

-  E0P--  ’"T"rA  AMJ  IS  Ip  5"  EPF"  KS  WERE  ENCOUNTERED.  THE  P2TUHN 

'•  *  "RE  IS  AM  S:'F~R  RS~"pr  AMD  Is  USED  IF  AMY  E"ROPS  WERE 

C  j  *:cr  MVTEi  po.  7HE  jj- n  t  r>;s  .  <  is  THF  KOREA!  RETsJRM  AFTER 

“  ‘TCL—SSIM;  A”  AT  PA' -A  FT  T  STATIC  MS  CArD. 

C  T”  'DOI-T'M  T-  THE  AB*'VS  EXIT  "’STORKS,  THFFE  IS  ONE  EXT? 

c  tepvTm5ti-m  a*-  mm::  mmomef  this  l<it  is  used  if  k shred 

C  nETE'  '*T,L:>  T”  AT  -HER-  \"Z  ”0  PTO£(m  y  nEfisEP  AIRCRAFT  AT  AT t  IS  THE 
0  _*P*.F  I A  ■’’’EVIo-s-v  JISC”S3EC.  EXECUTION  CF  THE  PR10RA1  IS 

C  1  RR MT" A T ti)  vi  PM  “HIS  pXIT. 

c  "mf  o-’tp-t  <• -p  Ts  ;h  the  catitmg  ARflmr.uTs  a::o  ia3e:ed 


r  OCKE'":  P.LOCES  PRSVI-us:  v  DISCUSSED. 

f  -P5  -n-rFssIMJ  PE  RFC 11  Hr.  3  BY  MEM  RED  IS  PRIMARILY  HC'JSKEEPIMG  19 
C  •*.U”,’E  I”  AOMITI-"'”  T“-  .A  '/.'.VIET  OF  CHECKS  CM  THE  DATA.  INFORMATIVE 

-  'LS5AGJS  FEIAPOIMG  HSMSMA’  OR  CRPOF  CCKDITIONS  ARE  PRINTED  FOR  THE 

-  "S  £" . 

r  -n£  cTn  JT  A’tER'’ATE  ENTRY  PC  1ST  IN  NFWPF.D  IS  AT  EQ"0?S  AMD  THE 

-  0 ALL TNT  SEO’EMCE  IS: 

Z  C’T*  PTJ-P.!  (-> PS,  p00 P.5, 
r  "ME": 

C  "PS  -  S  A“E  *S  DEEIMED  TM  MgS  RED . 

C  E0,'VS  -  FO,.,:,'AiEM?  AXIOMS  CCV?”7E0  EY  EOOOPS. 

C  SE  -  EV EMMS  -PLRA-IOMS  WiIISHTIMS  FACTOR. 


I 
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"  "  -  vinr  -pepa?i~n  •■•'“IG'jtip';  f-ctck 

..  CT-'pp,  5C"S  NO?  '**;E  ANY  EXTERNAL  SUBROUTINES. 

"  FOOTS  7S  C.V.F1  3Y  nHF  S’«RRCIt  HIES  MTXRD  AND  NErfMIX.  IT  Kill  BE 

r  (.AtT rn  ‘iP‘!Y  ?Txrs  Dtj=t::i  execvticm. 

C  THF  TM?"T  DATA  "C  XO*’-'PS  TS  PROVIDED  ENT  IF  El  Y  BY  THE  CAUIH'J 
r  srQ-JW'ITS. 

z  r  ■■.er ■*  i.;  on:  y  oj:e  ~xr°  "S'-"?*:  fpox  eouops  and  it  is  used  under  ail 
C  C''NDTTK  KS.  "HE  CMT  P-,T  fop::  equips  is  passed  tc  -he  calling  program 
c  T,,F~”3!I  CASING  AHA-'MEVT  00”0 PS. 

c  "he  ■'R-ocessiug  ?skfos'.:-:d  by  https  is  formulated  as  follows  for 

C  F^tll VALES"  OPERATIC;”.: 

C  nr’Jl T)  =  DJU  ♦”V*F(T 

r  HESS  D  (I)  ,1  tl)  ,  i:  (I)  APE  THE  DAY/EVEUISG/EIGHT  OPERATIONS  PROS  OPS 
C  ,top  ,«H,V3  AnE  CALLIN'?  AP3'JKE”TS 

C  "'IF  .*r-:n  ATTEF.  BATE  ENTRY  IN  1*VB'D  IS  CLRTAN  AMD  CALL  IMG  SEQUENCE 
C  is : 

C  ■■*  A  *  S*  A 

C  i*  RTSL  *»>jES  T'lE  rX"E;,‘!AL  T’P  P''‘!TI!iE  CERr. 

Z  rpfv.  T *5  CVTPD  BY  R-'"rTME  YLV. PD  AMD  SEWMIX. 
r  T<;  .-O  T-p.;?  UA"A  ""  CLS7AL. 

C  "HER "  I.»  "ME  EXIT  PF."*’PM  IS  CIPTAI.  AMD  IT  IS  AT  BAYS  USED, 
f  TiiE''”  IS  NO  mT?-r  F ROY  C  °T  A* . 

C  THE  PPTFSSIE*;  PERFOP,'ED  MY  CLPTAL  CONSISTS  Of  SETTING  THE  VALUES  IN 

c  the  rAB*rs  :<dse  ago  fatty  tm  mbel  cr'».s.rN  piock/rwyuti/to  zero. 

C  THE  "NURD  S’T^Y  TO  SEEPED  IS  AT  DMPTAI  AND  IS  CALLING  SEQUENCE  IS: 

C  c*IL  DM9TAL 

C  n-'prv:  USES  THE  EXTERNAL  S”BRO’!TI!IE  ZERO. 

C  "HE  .;'JPRC’’mIM2S  rirPD  AND  sewhx  CALL  DMPTAL.  DMPTAL  say  be  called 
C  M'NY  TIMFS  DOPING  EXECFTTO’. 

r  TI)p  xvpnr  DATA  TO  DMPTAL  IS  PT'VTDED  THROUGH  LABELED  COBHON  BLOCKS 
C  /rwv’iT-  /  AMD  /MIXU7A/. 

C  T»!F  "  IS  r ”E  EXIT  RS”J?M  FROM  DMPT.AT  LOCATED  AT  LIME  NUMBER  214  IS 
C  "ME  SUBROUTINE  LISTIT  ;  li!  SECTION  5.  THIS  PETUR1!  IS  USED  UNDER  ALL 
C  C"  EDITIONS. 

"  THE  "DTPUT  IPTN  DMPTAL  IS,  FCR  "UF.  HOST  PART,  PRINTED  03  THE  LINE 
C  priMTER. 

<Z  HCVE7ER,  VARIABLES  DEFTCT  T JI  LABELED  COMMON  BLOCK  /DEFALT/  AND  IRUI3 

c  i-  l: belf.d  cc:m:>:  ulock  /rnyutl/  are  assigned  values. 

C  thf  PROCESSING  PEEFOP.IED  BY  DNPTAT.  CONSISTS  OF  PRINTING  THE  TABLE 
C  ^SS  IS  AM  APPROPRIATE  FORMATE  AMD  COMPUTING  AND  PRINTING  THE  RUNWAY 
Z  •,TILIZ*.'r:CN  S'1  BP  EPS.  ALSO,  THE  TOTAL  OPERATIONS  ARE  COMPUTED  AND  THE 
C  Dn  SIPST  TAKEOFF  PUNK  AY  IS  DETEPSIHEP. 

Subroutine  NOISRD 


:r?P'’rTT«r  MCISRDfTGD,  T CM") 


C2-25- 


uo 


C  "HIS  SUBPrUTT**E  TOTALLY  HF.”RITTF.M  FCF  VERSION  2 


03-29-79 


33-24-79 


T.-rr  7  A0 TAB"  E  D ICT T*'-v A p Y 


03-29-75 


O  -  ARRAY  ?CR  TS5PCPAPY  ST^RASE  CF  SCiSE  "ABLE 

C  I'jn  -  FOMA’S  1  IF  C’p-’EK"  KCTSE  CUPVF  IS  MOT  USED 

'  -  C0"M"'R  I*!CFENE“"ED  EACH  TIME  *  MEW  TKPUST  ’  E7S’  IS  READ 

>:  T»  -  EOD.ALS  1  IF  1ST  "ABLF  T;  BEING  FEAD 
"  Eo*»AT  S  2  Ip  2MU  r>3LE  IS  PRINT  READ 

C  y  -  NCISE  CUP7P  T.D.  CORDIMA") 


03-29 -75 
03-2-D-7U 
0 --29-75 
33-25-79 
03-2r— 79 
03-29-79 
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O  '*> 


c  ** 

r-  V 
r  t?K 

c  py  ax 

r  pMI- 


•I?!  OS  CHARACTERS  7C  HE  PRINTED 
CPP^’T  v-'-XSE  1.1.  (AS  P*AD  1*1) 

•*0TSE  IKASt’SS  THF  TAQx  p  nvj'lr,  ?fi  OCESSED 
NEV  'JJVXX*? *T'1  PTFEPEVCE  THn’'ST 
T7  F  F£^  F"  c  E  THRPST 


05-29-7' 

03-29-7 

02-25-7 

03-25-79 

03-25-79 

03-29-79 


Subroutine  NWASDS 


*:v*,;n*;  (i '.c,"°ts) 


r  *v  ~) 


■.”:r*-c  - 
;zv  - 
-';y  s  - 

T  .  **  T  \* 

1  - 


•:p.v  Cil  E  .ITS'*  -ij-.f 

fcp  '>'r:r  cost" *•«>  search 

T-  n*-  -t  ;;t  F-'?*1  J'tr  es 

l  *.  ns  i") 

'TOHT'i  'r  "I-  A?.?. '"A3*  F.  DISTANCE  BS-WEE"  co:.rr  !r  POINTS 

*'*;*:>  -  T!>;j  *  'v  r  '  distance  n elates  ccntoo?  •’-•t-ts 

r,,A*  -  e::oins  cxp's’re  v.\:me 

.  .. •  v r r n ,  f't 'ri»\p"'s  s:’" ayes'*  “xp''7'>n  increase 


c.: 


r 


r  sr-r  •: 


r 

r -  va’5tap* £  i-dex  -  sc*:-  x nag xvatic:  tv  ciricE  of  sank 

’•:r  -  VJA... 

’  -  *•«'«  re.-'!*,  S’sn  Cr  CANDIDATE  RCINT,  NONZERO  SEANS  *!C  '.COD 

■•■#  ■  »■$  v  **\SSp*'  —  f’Y  P" 7  at 

>•  -  t*->p  APG"*'“',T  f  ■>F"T*T  APT  V  T'*CFE‘’0N?FD 
*■  - y  1  -  V'*'SF  eXp'T,HE  .AT  PI 
-  »*  •  ^pso  Ar  '  0  S  C  ?  7  E  '  » 

"■>?.?  -  :’■***. be**  "F  ■>:i**ts 

....  y  .  -  ..  _  ....  y  “  —  ’.TTFP'M—r  '#F't'FXC 

'•jvnp  _  ,..,r5,p  E” F IC 

n-  -  ov py -  r" c  p07';- 

<\i  -  f:**si‘  v;f*.s  at  p-siTt-s  oF  ;;ext  coktoop  pci*:? 

’’T”  -  X  ADD  v  CC">',r*.  ?F  'i'v'V  CASOTO.ATF  C°HTC  *P  P*‘T*’T 
'C’i  -  SO  "EV 

s**,3’«*  -  r,'"5p?T*:i  A**-*  r  rnE  fi»c'p  sb  p'irr  seapcm 

«jy**  -  n~".  P~I  V-  ,;Yp*5»,*p£  ’/  A*  *1 F 

)  TrA°CH  ?r'  V  *1  "F  TV  rp  ’AST  POITITt 

"•vr.ir.  -  -  -tat  T  T  !*  I!'OPEv  EE  i  UETV>  EF.**  PREVIN'S  TWO  CENTER  POINTS  )  CURVED  SFS 
— rr  _  Qr *  •  T  c  U  p  — OT.  E^AECE 

7-7-  -  ct5App  --ov  -p  — -t  f  *.  r*»  CT  ^  BOF.KEO 

'C1ECP  -  '‘?'Xir.T”V  C?*!?f,r  FAC~cr  fcs  1C<*P  check  coxpotatice 

VAX.  -  c'iirc-p  V A V’r  (’.EVE*) 

Vv  A  X  -  7 A*  P*  **S  r'* 

ll.T"  _  UIT  V  J  '**  S  — —  - 

V0  -  TAH’E  ”F  PP^P'RPO  SCXVT  SEAPCH  TOCZTICr-i  (T3I.\:  POINTS) 

X  -  •’SEVT">*,ST  Y  Cn4.?’JTt'0  C'':JT"'JP  X  CCOSOS 
y  -  y  CCCr'0"  r?  !*SEVI*.ICST.Y  COMPUTED  CrNTO*’?  PC XV TS 
TX  -  C’ :>v  -  I **Cf' EV PVT  BT’SIFS  PF,rVIO,’S  TVn  POINTS  7N  CCH?OnS 
YY  -  finv  -  IECPEHSVT  BETWEEN  PREVICI3S  TWC  POINTS  •'■'.i  CONTOUR 
'•vA.'iis-scnpf'i;TT"' 

'"-ASUS  PESFCPYS  THE  SAX”  r'JVC'T^V  »S  KEVP’IT  HOT  FC  H  ASDS  AND  DOSE 
Cr  NT*'",SS. 

vvasos  c?.:ts  t**f  s''ns^"Ti’!PS  ck’-co-1,  expose,  vado,  vtpn,  vsc?.,  vstb 
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C  AND  -'NAG. 

C  '“’I HP?  IS  OS’Y  or?  ENTRY  TO  "VASDS  AND  THU  CAT.T  ING  SEQUENCE  IS: 

c  ran  ewasds c*#r?rs) 

C  VHE‘5r 

c  •%-  «f«pry  r  OC.ATT0F  I"  CV*  in  PR^GRA*  FOR  F.ROOR  RETURN. 
c  .,nTS  _  the  KUNBEd  '■■F  CC HTD"R  POINTS  THAT  HAVE  ALREADY  BEES  COflPUTED. 
C  THT  WAIN  wpCGRA'!,  KCT3I,  IS  THE  CELT  USER  OF  KWASDS. 

C  "HF  TKorj?  DATA  Fn?  SK.ASDS  IS  IOERTICAI  TO  THAT  FOP  5SWPNT. 

C  OUFWR  APR  TWO  EXIST  P ETHERS  F?"H  KWASDS,  LOCATED  AT  LIMES  SOLDERED 
C  a**!)  1  -  ■  I!!  THE  Sn^Ro*iTT'*R  LISTING  IK  SECTION  5.  THE  RETURN  AT 

C  T  INF  £0  IS  X  EETUR”  USED  WHEW  A  POINT  ON  THE  CONTOUR  HAS  BEEN 

F^nro.  THE  RSTPP”  AT  LINE  1^3  IS  AN  EPROR  RETURN  AND.  IS  USED  WHEN  A 

"  vatid  p-'ii:-  caknct  se  a*:d  will  cause  co3P”Tatioss  cc  the 

r  xnpsnr—  C'^NTf'",R  T  RF  TE^Y I D. 

r  -:if,  r— r?-T  ?f’r*  ru’AGDS  Is  IDENTICAL  TO  THE  SUBROUTINE  NEVPKT. 

0  •-••!! »  r  -nr  ?P'^fS.'T:i'  PERFORMED  DY  KWASDS  IS  CONCEPTUALLY  THE 

'  S!»r  is  •;=‘Vpr-,  r  H  F  ?  F.  IS  A  S’.BTIR  DIFFERENCE  I”  THE  HAND?  IKG  OF  THE 
i.-DS  WF'FTC.  "* A" II r"*T  AFT.  Y  THE  7  E°  -T 1 .1  ?  CONTCOS  FOR  ANY  GIVSE 
r.jrpsH'V'  0.  THE  I •:«!£■> T*T  DISC'VTIWHITy  rp  -pfij  POISE  EXPOSURE 
(I.Y. ,  ti«?  APC'E  "HFRSHCLD)  ALONG  THIS  BORDER  IS  THE  IS  THE  REASON 
r  -np.T  MW  asps  WAS  K?TTTS“.  "HE  SNnP:u"I*:E  NEWPKT  IS  TSCAPALBE  OF 
0  ur-.rrssi*-;  THIS  SPECIFIC  C’SE. 

0  t»-  TI'F  ACTUAL  PPrrT«?Si''G,  'HR  IDENTICAL  POINT  SEAFCII  PATTERNS, 

C  "'Tt  '■rzy  i  :;:n  AL  '  f  n  nr,  (IK  C»SE  OF  IOC  PING  CONDITIONS)  ARE 

-  FYtjrn-rn.  AS  VE*-  AS  T’!T  E"  AND  FTNSF.P  CROSSING  CRITERIA  CHECKS, 

r  : r rpT*- ;  CHECKS  AND  TOLERANCE  CHECKS  AS  THOSE  IN  KEVPKT  WITH  THE 

o  rrcRTT'i:  ?w  THr  :;nr0T*L  hasdlika  of  the  zer^-tiie  contour. 

r  «i*  S' EC  I  AT  H'-KRIT**;  OF  TH?  7RPO-TT**E  Cf'"TC’R  CONSISTS  OF 

prnp«->>rIvs  i  OKf -SIDED  'CL FRANCE  CHECK  RATHER  THAN  TW'-SIDED  AS  IS 
r  *LSO,  :  C'"*P‘-,'T'D  VAL'S  CF  7.EPC  "THE  TCR  A  TRIAL  PCIST 

■'  T*‘CI''»T?S  •’''"KIND  A R' “'S  C! r  S~  IT  TS  TO  THE  CONTOUR  UNLESS 

'  V.*rfir5  ..ps  ^Er-:  -AlC  *:  A'SD  KI"W  A  KCBZSRC  VALUE  ASD  THEE  it 

r  qp  ASS ’’rED  that  7»E  CON'Cdd  is  BETWEEN  the  two  POirTS. 

STTF  "RE  BSSI"  C "'CERTS  i'AV*  AT  pRADY  PRE!I  DISCUSSED  FOR 
r  S-pfr'-piNK  NEVpNT,  THE  PCLLCVTK  5  WILL  RFLATF  THE  PROCESSING 
C  ->t.p7-r*rp  t"  -r>H~  V'rT"'S  S'CTnas  OF  THE  PPCGRAK  (REFEP  TO  THE 
C  r  jr”  LISTTN1  TK  SHC'*T-''N  ".). 

0  * TErs  )i  -P  KOPNAL  SEARCH  P A"TEPN  PCIKT  SET-UP.  THE  PATTERN  IS 

C  D'-rr  r-3Ir'ZP  3"T  ''SI*  r.-,r  STCE  WTTt  nF  USED. 

-  '"•r  sipso  T"’.  FRANCE  SET-UP  FC?  ZEPC-TI«E  CONTOUR. 

C  «  v”?  9R  *" I S E  F.(P,'S',PF  CU^PUTATI??  AT  FIRST  "PIAI  POINT. 

-  *  Trr:;  '  p  t-  '0  wv"t  SE.>”F"CF  ’«H'F  A  prist  CS  THF  CCKTDUP  HAS  BEEN 
r  "  ‘T*’  0  . 

r  *  "A!ES  r  1  O' PI  A’  SEARCH  PATTFS*1  EXECUTICS. 

r  t i»rs  n1  r**  'a1  ai^sf-PD  seawch  patteps  execution. 

“  *  IK'S  IBS  7-  197  T*5"FP?'T  ATI'*”  OETVEFH  TWO  POINTS  STP ADDLING  THE 


Subroutine  OVRLAY 

S:,UFDU"TKF  r>VRT  Ay  (T  '.0,  KTPAK  ,STSS  ,NPSS,  DD,  KFS,  WPCAS,  WK) 

7  »**»«************■»******•*«»  ************************************** 

’pri:  7adiar:e  dtcticvapy 

-  ASPP^F  -  ASPs  PEPcOK?.ACE  PFOFILE 

PANG  -  7"qv  \*ju*  ? 

r  D :  DIS"ATS  IE  ASH3  ED  ALONG  '.RCTiO  TRACK  FROH  SUKVAY  THRESHOLD 

r  -r-  T.!F  pry«T  VREpw  ARE  AIRCRAFT  TRACKING  BEGINS  (USUALLY  THE 
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p'-tet  cw  the  groped  closest  t:  the  first  observer). 

DV  -  DIFFERENCE  DETEST  REMAIKIKG  GROnHD  TPACK  SEGMENT  AKD 

PF^^.rsiss  ppofiie  seopfnt 

FLT"EP  -  FL1  “H"  '’V11  I  IIP”  (SEE  6E!(W.„.) 

_  BRE"'R 

TTSrG  -  TOE  H-MPER  OF  t.«acK  SEGKEETS  FOR  )  GIVES,  TRACK 

TT  THE  LOW  CSDEP  ?  FITS  CF  THE  WORD  (CF  SUER  HOT) 

«S:  VXPEF  ” F  PLI—PAT'!  SE.IKHWTS  AS  ASSEMBLED  31  CVRLAY 
(CV  C’’’  *T?n  nY  ''V'”  A V) 
vp»*  —  ^ r’ "■  r  1 1  -  SLjISII"*  CC'fH,n 

ftp  a*1':  t«ptc,,'E:  t,,p  -'>ack  *n:'.ESP  for  use  I”  array  para  ti; 

T  ?* r ^  FLOCK  rrtt^. 
vt<;  -  "p AT*  Cr"V  -'HP 

■  nvp  -  has  ■-  :>ee::  fc-’”d 

'r?r  -  is  is  ,v:  ovrN-’s :■->-]  -f  t:;e  previous  segment 

1  IK  IT  -  IS  -HIS  T,!E  "r-y  FI? ST  SEGMEKT 

'  ?S  -  SM'”?  PRT^TT  E  H"  COt’TTEP  BE  INCPE.1ESTED 

LTf,  -  S LD  "®AC£  SHIER’. IT  C'TVTE0  PE  thcretemtked 

17.  -  IS  —(ERE  "EOT  °£VAI BIT G  '  R  VGTH  IB  C"RF£"7  SE GEEST 

«SSX  -  DECODES  A'GS  I"  J-'.C 

■*!lcr.p'  -  MAX  3"!*REP  0”  f.^GTETTS  IF  ?POFIT E 

•::;ps  -  tax  ::-tcer  <-f  profile  segxfkts  allowed  by  array  dimeksiohisc 

vvts  -  » Y  "F  -RACX  SEGMENTS  A!  I  OVER  BY  APPY  DIKEKSIOH IKG 

"  -  ’<'->?  cC’*”Trr>,  •''TETITES  EO,,7?S  “SFSP1 
T*-*CKI*G  3E!?r“S.  (C  ALC"L  ATSH  PY  “VP?  AY) 

T ’c a s :  the  :rv.o'\j  ■-  ""e  sr;xp3T  i::  ap^ay  flt-fp  where  aircraft 

-,RSS  ♦  TSEP  IF  P  ”  ”T  ’.  E  Sr'TEl,TS 

” r  -r  v;k  segments 

n  _  scp  V'CHPAD  pr  ■'FT’  r  SEG.XETT 

Rf°A  -  ALIAS  PAPA'  :::  OTHER  rC“TI"PS  (A/C  i::?C) 

-*  _  !-fh'T"T!!G  •  Er;""  -?  "AST  PROFIT  e  sfge.eft 

EPS  -  FETATTIVR  PR-^x-f  ’  cKGTIi 

"«!  _  ;»cr:n  Tl  \Cy  p  ABIVS 

,<P)  -  V?  ■'F  JRFVt‘'»S  G  ?  G  ME'!  - 
v— S  -  LEKGTM  ~F  r  ’p  ■■  FT T  SEtXE”! 

■.•■•-’•HI  OT  > r A " T E  M-.AS’?r''  0”  T'iF  S^JKO  TRACK,  Fr"v.  r-IF.  PEOIfi’IlHG 

->  "he  t ->c as-?h  sztie:"*  tc  -;:r  ?rr"i  whepe  tracktsg  begiks 

V  r>"  f>V  ',V'’*AY). 

•*''t>TAv  -  H!tHR"'"?I*0  •; 

r7T.L»y  <'C"ST‘5',CTS  THE  FLIGHT  PATH  3EC"E’!  PY  V API ABLES  FRCM 
T-  -rp.ACK  RFF:’:T-t-'T.;  ,VD  A*TIT"DE  PF^FITFS  F^I.  "HE  P"SITI"'1A1 

.t!C,.^  obia-t;:';  Cpr.rT>,.rp  V‘D  AIRCRAFT  :’3ED  r'  P  ADDS  AKD  DOSE 

—  '*  p-',T'>.  ”  T  l~ 

■•!r  r-p.p-": “wt*  ay  rres  "??  mse  extereai  S',bp-';ti,jes. 

......  ,y  J.r,  r;:p  RNITT  A  TO  -:iE  CfLLISS  SE'D’IETCE  TS 

AY  C«,  FT" IF,  "TS,  *•?:; ,  Ti,  *FS,  S’PCAS,  VO 

"  1E^E 

*  -  TFXCPY  Trry~  TO”  V!  CAL7. 1  FA  PFOSPAM  F^P  EPR.CC  PETRRB. 

FT *.'V  -  S=T”WD  rVM’F  R”!. 

”TS  -  "CTAL  **"KPE.'  CF  SEG’n*: t;;  ir  T”0  TFAC'. 

v-'pTB?  p f  ;>EHF''RVAECE  PR-FI1  E  StiEFBTS. 

D  -  niSTATCE  ATOVG  ~r.:  ;r.—:;z  T^ACK,  FFCr  THE  DEGIO.ETS-A,  TC  WHERE 
:  T  P  - "  A  FT  —  ”*CFIT'  TS  SrAr'T.  "SlTI,TY,  THIS  AT  THE  pRTBT  OF 
CLOSEST  APPR^CAH. 

KFS  -  B”FBS?  "F  "FLIGHT  P.ATH"  SEGHFRTS  ASSEMBLED  BY  OVRLAY. 

*  "CAS  -  T'!p  ""MPFP  "F  THE  "FTISHT  PATH"  SERHEKT  70  START  AIRCRAFT 
T'  SCFIBG. 
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4  -  ~:IP  DISTANC"  F5""!  "HE  'DEGIEKTKG  OF  S EG HEFT  K1S3ER  SPCAS  TO 
"!!"  AT°C?\FT  TFACKI NS  EECIES. 

"MF  S’'t>EC  ’,TT*,T  TI HIST  IS  "HE  OKI  Y  OSFP  OF  P7RJ  AY.  THE  STJBRC-0  PIKE 
■•Til  PE  CALLED  'TCE  HE”  FLIGHT  AND  HPKCE.  RAFT  "IKES  DHPIKG  THE 
’l'''-"’!'"’  IHV 1*  VIS  '<  IS  ns  DR  3-SF  caicht  atiohs. 

"Hr  TIP""  D»TA  TC  '  VP’  AY  IS  PROVIDED  BY  BOTH  ~i:E  CALLING 

•”G'i,RErrs  »:’d  tab^fd  ros-ns  rt  pck  /t^acf/.  see  thf  discpssios  for 

;:  -riF-— T”c-  »»•»-  FOP  A  DETCnTT'"'  T  F  T:,E  COSTEK'i'S  rF  THIS  3LCCK, 
S"F~IFT-*”  T  ’•!!”  S”0""n  T°*CK  D  FFIVITIC  US  COSTAISED  I!!  THF  V  ARIABT  E 
’"TF  rii’T  "HE  V  A?  I  ABIE  IS  PEFEPPED  TO  AS  PAP*  IK  CVRLAY. 

"HE" -  ~vf  "XT"  f"TnnvS  n/ft;  IrCAT£D  A"  LIKES  KPF.BERED 

**'D  ‘09  T*!  THI"  S^np-I-TT-F  *  ISTIH  I  I "  .  CTTOH  r.  THE  PF.TURV  AT 
I':’c  ■:  )■>  i  <?  TH1-  "ffru  H  T'O””  vr.tD  IF  ho  errors  afe 

-"C*"’' I'FrtD.  - -'7*’v;  »7  *  ijr  */)C  ?$  tj;  £pp/?R  P.ETPpV  \f!D  IS  '!SED 

«  '/at  ID  .'orro-p  PDTjr  CAS'JCT  PE  F"i**:D  A3D  VI”  CAD3F 

(-p«/>  tT.Tj-..s  r)1r  r-»?psr-  co*: T" "F  ;<■  bf  te?''t«*t£D. 

1  T  T*:-  * 0”  IS  "  Ir  \-CB*AI,  HFT!JC'!  USED  IF  *!0  ERRORS  ASF. 

"‘T‘ THE  PET"”'!  I  THE  ~0'-  TS  AS  EPPT?  EETURK  AND  TS  FSED 

"FT""  : F rt : - ’  “AS  BEST  EHCCVE ?E U  A  I'D  *•!  ERPCP  HUSSITE  PFIKTTD  ON 

-II"  *  I«r  p-fw,  l"T.?.  *  T*1FF.  "OS'  T5  ”?0)  .  THIS  RET"!?::  ,*TT  I  CAUSE  THE 

T“  •  DDIT"  CA;*T'*S  3"  K”*"TS*  ril”  rL'TPHT  EH'".  H  CVE7AY 

C"  "FISTS  “F  ""S  CCTTr'-T"  OF  THT  7AKI*BL£  I  HTTP  IK  LABELED  CCTRCK 
"CF.  /T’l”/.  r->r  s  DESCRIPTION  '■'F  "HF  CONTENTS  OF  FLITS? 

.  _F„..  :  t  *,ps  **  thp"‘;h  ( 9  y  the  s”bp”:'tt,‘"  tisttvg  i?!  secttck 

pf:c- ;gi::s  p”F"::v.::d  -y  "ypiay  consists  of  sfh-,i::g  the 

c v  •'rrp-'jrv";  jryti  ” HP  Afi-c jpt  PEP FORR ANC P.  PROFIT." 

'>:,f:"I~t:,,s  —  :?r\‘r  a  sirs  if  "Erin-i'ics  fct  riiE  athcpaft  flisht 

•  * T'i.  •—I”!?  M'C3’  F‘  CAO’CTE!  Tr.TIOS  S  J^h  AS  VE'.CCTTY  AED  POWEF 

r  ■  r  i  ?»»  c''pr~.,."~D  «T":!  »*  fTOP*  and  distance  a-  o::s  thf  path. 

•Hi;  -I*-.  1EC"RF  — '0  0*‘L  "S  ED  BY  TTFI  51  AED  ''"HEP  a  El  ATED 

AT"’’!  AT?  !I‘  AT  ”C' AF"  FLYr:Y  I"  "HE  WHEKE  THE 

vt.-.v...  >-;rr*:i  -’Cl"  TEYET  TS  EXC^PED. 

- ;  ;/Tii  -  *  <  -vnc  - r  r.psilHE*!",  PSFP  FOP  PRF,'R 

y...  -.j-  T:,tri(  ;:""3KR  ?r  R  Psf.  T!'  APFAY  PAF.A  T  3 

■  -r  V". 

"-anr:  - ■:  ■*,p*':i'  S"^vr*!"*i 

. nr?  *p  ^5-c*- c  *; 0SV F r ~ S 

. vr  Tir-fi  v  os"  tfack  fp^y  >"*:way  threshotd 

..  T..e  -i,r  .Trr^,pT  T-sci/T.;  ;  n?/;7';;;  {'iS’lAILY  THE 

” ‘ T • "  "•  :,,r  ‘-T - i  c*  t*  "ir-:  f ti  s?  "sr. f.f vor ) . 

f  - ;  p:i  “i  s".;?."':ts  as  assef.315.d  PY  Ovhlay 

>•'  •'V5'  1V| 

as i  ; . **  ?«•  “•  the  ?e; •'"H"  *>:  ?"r  ay  ptitep  hhepe  xipchaf" 

■•*,c*:i'v,  "  {Cm~”l*ted  •»*  -:7H*rj 

•  :  TP;  v-r-s  -a-  ,  ^ ~A?  GPO’irD  T"?.OK,  FPDH  "HE  UESTNH I!i3 

t-  ~:r;  ->-;ix7  JV  ERE  TP  AC  f.  IN  5  UESIES 

fi  A'  0  "  A  FED  "Y  ‘  ■»••••  '  . 

-|i~  :;tP7CT"FF  " "  n  t;-v  T~fCH  T3  EXACT’Y  AS  R'l’lND  I”! 

■•'i  ?,  ”*■»  ST" *>/*"—  PEi’C’T. 

"“A"  '.(',1',ilril 
T  V.VC~.  ("AFAR,  ■'AnA) 

r  ”{r.sr) 

C'-NTATHS  T'i  T  PH'-FIIE  I*F"?r»TTC!:  XV  A  FOFFAT  AIROST 
—  si—  SM"  AS  Dr-AOR’^”"-  TV  V"*  ”,  ”?  RTPPORT  BEP'*PT. 

v  DT  FrJ?E"CH  -  DISTAFCES  APE  FERSPRED  FRCP  THE  FA?  EKD 
D  t-ilJY  — ;;t jr.jns-  i  I?"ES?EC?IV"  T  F  SKF.THEF  IT  IS  A  T.AFEOF®  DR 

^Vr"  ’T  rrc«i  whether  a  t/c  of  lakdihs  is 

per 
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-vo-i.yvq  T?SK  IS  MM  CMPECTIY  ARRAY  FLITEP  SITB  IKFCESATIOE 

r  ?'■•  £?.rH  ss-ohem-  ri  -  grctjd  track  gechetry,  altitude,  speed, 

Tr  ■'■!!-  FI“3T  ISOEX  IS  THE  C0S7ESTS  0?  FLITEP (  ,  )  IS 

1  0.  F*'P  STRAIGHT  S2GHEET 

1.  FOB  CIPCCI.AP  SHGSEBT 
STRAIGHT  -  Y-CCCRD.  OF  SEGSES? 
STAPTIKG  PC  1ST 

'  CIPC”T  AP  -  Y-C09BD.  OF  T"B8 

C ESTEP 

STRAIGHT  -  Y-CCORD  OF  SE3BEST 
START  P0I3T 

CIFCOLAF.  -  T-CC-CHD  OF  TTJ8K 
CEKTEP 

"  -  STRAIGHT  -  LSSGTH  OF  SE3KE5T 

CIPC3IAE  -  RADIOS.  POSITIVE  IF 
TOPKTTG  LEFT,  BEGATITE  IF 
TOPMSG  RIGHT  {TCCKI3S 
IS  A  r>I=>ECTICS  ASAT  F8CH 
THE  ?*»SKAt,  1.2.  AS  IF 
TT  WEFT.  A  T/0) 

STSAIGH’  -  S-COT POSSET  OF 

'  PSI^  VECI'P  IS  DIRECTIVE 

OF  SEGSEST 

CIRC0I AP  -  TOPE  AS3LE 

-  .STF  t  TGHT  -  V-CMPD.  OF  HSIT 

VECTOR  IS  DIRSCTIOS  OF 

"  SEG.YEKT 

CIPC3IAR  -  A'fGt  E  3ETMEEB  LISE 
FPC'.T  TP3S  CE2TEP  TO 

:  SEGSEET  START,  SITH 

POSITIVE  T- AXIS 
.A*?T'DDP  AT  SEGSETT  START 
SPEED  IE  SEOTS  AT  SEGSEET  ST1*T 
TO=3ST  OVER  SEGSEST  IS  IBS/ 
E5GISF. 

"'T  -  AM  nir.TArCES  M  FEET,  All  AEGIES  IS  RADIALS 

Subroutine  POSCOO 


rTijpn-i-rrr  P'rSC'O  {?  YISI,TTT  ,«B,FSEG) 


r  -  t- rr.'MD  irC«EASF.  DMISG  SEGSEST  ) AIRPORT  PRASE  { 

C  -  lE-G-H  rF  s^GTE!:--  A7CJU  _X  DIOECTICH  JPPOB  XI  -  3HICH  COORD  FRASEl 
F’  T7r0—  *-r5CP»FT  TIGHT  PVa  DEFI’?TTIC’! 

»SEG  -  SEGSEST  S***,‘»£** 

KSFS??-  S" SEES  OF  ’Sm^S’T  F.XSFISEP  TRAC?  SES3ESTS 

*?*.*■  f-  i'-sica*  t.afiarie 

*  VTST  -  FT  AG  T~  TEST  IF  _SASE  SFSSEFT 

»SFS  '*UT-r,n  TMDE?  OF  SEl^Cii  FOISTS  1  AS  SSASDS  { 

'•’tspi-  s.u —•sns*  of  sfa=c$i  pcirrs,  first  *ass)  sot  •’sed  c 

-  FRAC'‘T''B  ”-F  -"PS  'S.T’E  TRAVERSED 
P  -  ’E3G“H  rF  SEGSEST  J  STORED  13  FLITE? C 
BA-  A  DSC’  STF  VV’E  CF  GFGSEwT  T.EBGT!! 

>  -  Y-C^CFO  T”CPF'SE 
ML  -  PISTASCE  F3CS  OPIGIS  °  ¥  VA 
— -  ‘'J/TET?  ■’F  TT!?”  s  TRAVF?  TED 

»*-  T.tr  XYt-M'?rDir.A”E  P.'SI'IfS  OF  THE  AIRCRAFT 

7!"  -  C"D  pryrT  or  SETSEST  p”lstive  to  ST.APTMIST  )  VOOSE  REFERENCE  PEASE 
{ 

-~tt  vf(~c?  <-m terrors  fcp  alpha  ir  ~ns  aircraft 

?rFFfrt*~E  rpaS” 
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ii'n.inn  mnno,in  i  i  on  i  o  o  >  o  o  n  o  n  o  n  i  o  -i  o  o  o  o  o  o  i  o  o  o  o  o  i  o  o  o  o  n  n  • »  n  i  •■>  o 


"beta-  'c:!*  vscyo°  conpckssts  fcs  beta  ik  the  aircraft 

REFERENCE  FPAMS 

v<?  -  STRAIGHT  SEGHEr"  START  PCI-!t>  CURVED  SEGMENT  "URN  CENTER 
*.'P-  POSITION  "F  SEGMENT  EH D  POI*’T  )  FECK  FLITEP  ( 

W"  -  DISTANCE  F”OM  SEGMENT  STARTING  POINT 

y;  -  rlf.va rTC”  jn«;le  of  s eg?. eft 

T"  H»,DE?STAND  **HA?  POSCf.D  IS  DOING,  AH  EXAMINATION  OF  THE 

discussion  v:  mnp.  wyle  pock  with  ^he  accomapkyihg 

NT'S*1  A-4  IS.  VERY  I’ECFSSaPY  )OR  a.  VERY  GOOD 
•f.'DEFSTAHDTKG  CN  CC-*  ** OT ** ATE  TP  ANSFORMATICHS 
H^WEtH  PE^EPEHCE  FRAMES  MOV  ING  RELATIVE  TO  EACH  OTHER, 
im  )>TUii«;?'ir\PY  CF.' ESTT.AJ  MECHf 
P^S-'CC  -  S’tnrrrTT'.F 

<?-t«»»r«TT::E  PCSCOO  COMPETES  TEE  POSITION  VECTOR  OF  AK  OBSEPVER 
rTvr  w  T“S  AIECP.A.'T  TK  THE  AIFCSAFT  REFER EHCE  COORDIHATE 

n<T>~">  HAS  o«»t  P'"TEY  •>OT*!T  A  HO  TEE  CM  t  INS  SEQUENCE  IS: 

<'*LL  n^sc"  fLXTSTtT:.,w,KSEO) 
v  :!R'>r 

’VIST  -  A  I  *'STC?.*  YAE  TAB?  F.  WHICH  IS  TPt:  E  FOR  THE  ^IFST  CA’I  TO 
r~0C'0  FOP  A  FITO^T  ADD  F’LSF  "  THERWISK. 
t'  -  +•',0  vf\ t;  ijA'-’F ' ®F,  -'.0  frtR  1 AHDIUO. 

■i  _  in-n p»n«;T*.i!  OTS^AVCE  .ALCN  5  Ci'-RRr.NT  SEGKEKT,  TO  FEE"*,  FROM  THE 
•)vOI’"’T.‘:r,  T UK  segment  to  "he  ANAIYSIS  POSITION. 

If <5 S'.  -  THE  NUMBFR  '.  F  "HE  SEGMENT  BSI’-’G  ANALYZED  IE  THE  PLIGHT  PATH 
•'*Fr:iTT— . 

r'E  :vtn»'"’Ti::F  tint si  is  the  onty  usep  of  subroutine  pcscoo  ahd 
ohi:.g  T«  vping  t«f  flybv  simhlatick  tc  determine  the  •’^sitic-k 

C'"PI'I  NATES  *F  THE  ATPC° AFT  Ann  l* HIT  VECTORS  I”  THE  AIRCRAFT 
'•"FF-’E”OE  FPft‘’E«  "HESX  9’'.*.!  ITT  ES  APb  HEEDED  FREQUENTLY  WHICH 
’"EC^SSTT ATES  MV*Y  CAT’S  TO  PC3CC". 

■"HP  lfIP”T  DATA  TO  PCSCOO  IS  PFCVIDED  BY  mHE  CALLING  ARGUMENTS  AS 
VRI’  AS  PY  LABELED  CONM'*!!  BLOCK  /BLKV.  THF  INFORMATICS  II!  /BLK2/ 

TS  "HE  ri".HT  P" AT'*  DSETNITIO"  WHICH  V AS  CONSTRUCTED  BY  THE 
j.*irr^«TTHE  CVRLAY. 

POSCO's  HAS  T,,0EF  EXT™  E^T'iRHS  "'CATED  AT  TINES  NUMBERED  2 C,  31 
*  HO  "7  T"  THE  S,,*>R'UTTHE  ’ ISTTNG  ID  SECTION  P.  THE  ,,T,THPN  AT  LI’’E 

,r  is  csf"'  !•■:  ■>  aa:  n-'"  the  n^sT  call  for  a  single  straight  flight 

•’ATM  segment.  THE  RETUR”  ?.T  LIKE  31  TS  USED  AFTER  PCSCOO  HAS 
RECESSED  A  S" AIGHT  SEGYEA'T.  T HR  RFTnRH  .AT  ’  IHE  IS  USED  AFTER 

'”'00  ESS  ICG  A  CI?C”:.AR  (HELICAL)  SEGHEVT. 

"iir  ''UT-'U1'  RRCH  POSCO?  IS  CONTAINED  I”  THE  IA3ELED  COHHOK  BLOCK 

/"FCB'K/.  THE  FOJ '  O'ICG  DESCRIBES  THE  CONTENTS  ?**  THAT  BI  OCK. 
I’APIABLE  DESCSTP  ?IC" 

V-  THE  TYZ-COORDTH ATE  PTSITIOH  OF  THE  AIRCRAFT. 

1  prjJ  J) !?»’  j; 

V  A' y»’TT  VECTOR  COMPONENTS  FOR  (A)  IH  THE  AIRCRAFT 
'-EF''EE''CE  F?1  vR. 

VHET'E  •,MTT  77.CT0r  COMP? NESTS  F^r  (B)  IN  THE  AIRCRAFT 

E^E-RfCE  F E A v E. 

'VrTF  THA"  SO"H  (.A)  AHD  (P)  .ARE  EXPRESSED  IH  TERMS  C?  (I)  AUO  (J)  IN 
THE  ’ T f ? 0 PT  FIXED  COaroxfatE  SYSrE*. 

THE  RpPsrCK  CE  TCSCOO  PRESENTLY  INCLUDED  IN  THIS  MODEL  IS  A 
.GTRP'TFIED  APPP'AC"  *!”'  AM^RF  COMRT  ”X  VERSI('N  WHICH  TS  IH  A  STAGE  IP 
C PFC1"'’*t.  SPECIFTCAL'  Y,  THE  FD*!CTI'"!S  PERFOEHED  DY  THE  MOPE  COHP*  EX 
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C  VFRSTC’*  THAT  ARE  M"»T  PERFORMED  BY  THE  PRESSl"”  VERSION  ARE  THE 
7  Cn'*PMTATI'"!  *F  P.A”F  It”  \*'D  FUSE!  AGE  ANGIES.  THE  PRESENT  VERSION- 
r  f. S S*’ '* ES  Tin"  THE  ATRC'>?  FT  IS  HORIZ^NIM  AT  AT*  TIMES.  THE 
r  KAJNTTUnS  CF  7Hr  2FP^'f  IT  ANY,  OAUSED  BY  THIS  ASSUMPTION,  HAS  HOT 
C  OFF*:  IE  PEF.MINPD. 

'  "'IF  P^OESSIHG  ?S?FCR,*ED  ?v  ? OSC'T  CONSISTS  OF  SEPINIKG  THE 

<*  "SIFIFE  c^RDI'i'-TES  (W  tv  THE  CAPE5TAM  SYSTEM)  of  the  AIRCRAFT  AS 
r  tip  fasts  vrrrors  for  the  m°cpaft  moving  reference  fpame. 

~  X,  V  \»«?  tff  CCr?Di::»7KS  OF  'r!!H  PROJECT  ICE  CF  THE  HK7.TX  CENTERLINE 

r*  ■>**  TjM?  ^j?<**%***\  p- 

"*  ^  j«*  mqjp  *;?ITfTP£  TM Ts  I’*G  CF  TM  F  TUPiT. 

r  :*.*•*.  ts  tr  '.ws  *r  thf  p^sinvs  x-DinKC^t:-^  .v:n  a  ’Ivk  through 

r  ^?^JECTT/":J  *F  ?H~  5  M £ NT  S^APTI^fl  P^IKT  A^D  ?!IE  ^OF  DILUTES 

q  X,  v  *  F 's  V  E . 

C  *«I  Tf,  *rf«E  V:-tL5  T'lT^  *HE  ?*1R!:  F~  R  THE  CURRENT  AtHC0  ftFT  POSITION. 
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Subroutine  POSIT 


SUBROUTINE  P'-SIT  {’.•"ITT) 

C  TAPE  POSITIONING  SUBROUTINE 

<*  ****************************************************************** 

C  POSTT  -  S'IBP0’,TI”C 

C  S"PPOUTINK  PCSIT  POSITIONS  a  magnetic  data  tape  a  begin  WRITING 

C  P ET'WFFsj  the  fjpst  UO"BT  F.-END-OF-rIL£  MARKS  FOUND. 

C  THE  SHBRr UTINS  POSIT  CALLS  THE  SUBROUTINE  SKFIL. 

0  "''SIT  HAS  OEE  ENTRY  POT  NT  AND  THE  CATTING  SEQUENCE  IS: 

C  CALL  PCSIT  (LBN IT) 

C  V'HERE 

C  LUNTT  -  THE  LOGICAL  UNIT  JTMBER  FOE  THE  MAGNETIC  TAPE. 

T  T!!P  MAI*!  PROGRAM  MOISEI  IS  THE  C!!T  Y  USER  OF  POSIT  AND  IT  IS 

C  CALLED  ONT  Y  ONCE  "SP  KXECUTTO*'  R'.’N. 

r  t(1e  OMLv  TVPUT  DATA  FOR  PCSIT  IS  PROVIDED  BY  THE  CALL  INS 

7  'PG”ME*'T. 

C  t (j E R E  IS  ONE  EXIT  RETURN  FR CM  POSTT  AND  IS  USED  UNDER  ALL 

C  Fr EDITIONS. 

0  THE  CGT?T,T  FROM  POSIT  IS  THE  NUMBER  OF  FILE  MARKS  PASSED  OK  THE 

C  t \pi?  refCPE  TWO  BACK-TO-BACK  FILE  MARKS  WEPE  ENCOUNTERED.  THE 
C  CUNT  TNC’HDES  TM^SF  TW">  FII  F  HARKS.  THE  NUMBER  IS  STORED  IN 
C  ABELED  COMMON  BLCCK  /DEFALT/  IN  THE  VARIABLE  IFLDEF. 

C 

•  * 

Subroutine  POSMUT 


FVNCTTC!!  p-'S.MOT  (PWR1 ,?WP 2, DISTS, DISTE, DISTA) 

****************************  ************************************** 


1 


C  THIS  FTJCTTfi'i  SMOOTHS  THP.tJST  CHANGES  OVER  THE  FIRST 

C  1000  PEET  «F  THE  NEW  PROP II  R  SEGMENT 

i- 

C  POSHnT  -  "AT  !,E  F^R  THRUST  AT  THE  ANAIVSIS  POINT 

C  PWR1  IS  THE  CIO  THRUST 

C  PWR?  IS  THE  NEW  THRUST 

r.  DISTS  IS  THE  START  CF  THE  HEW  SEGMENT 

-  HISTE  IS  THE  E»*U  op  ?«E  MEW  SEGMENT 

C  DISTA  IS  THE  PRINT  AT  WHICH  THU  THRUST  IS  DESIRED 

/*• 

r  ABOVE  STATEMENTS  APPLY  TO  I'AKECFFS  ONLY 

"  pop  I  AVDI'*SS  PEVF°SE  TNP"T  START-END  DISTANCES  AND  POWER  SETTIN 

T"  CABS (DISTS-DISTLJ . GE. 1000.)  GOTO  10 
r  oi'sxp'r  -  ®PKCTICN  SUBROUTINE 

0  THE  PURPOSE  0”  THE  FUNCTION  POSMHT  IS  TO  SMOOTH  THRUST 

C  TP AHSTTOVS  WHEN  "HEY  ARE  ENCOUNTERED  IN  THE  AIRCRAFT  PERFORMANCE 

r  ?orpi" 

0  "PSHTT  "AS  CUE  ENTRY  POINT  AND  THE  CAILIHG  SEQUENCE  IS: 

0  CAT  POSrUT  {PWP.1  ,  PWR2,  DTSTS,  DISTE, DISTA) 

C  WHERE 

"  ,'Wr1  T!!E  ORIGIN AT  THPUST  (POUNDS  PER  ENGINE). 

r  u«R?  THE  FINAL  THPUST  (POUNDS  UER  ENGINE)? 

r  DISTS  THE  OFfED  DISTANCE  FROM  THRESHOLD  TO  THE  START  OF  THE 

C  SEGMENT  *S  THE  AIRCP A °T  PIPS  IT  (I.E.,  ONE  END  OF  THE  SEGMENT  FOR  A 
C  -SKE'-FP,  the  '■‘Thnk  E’-n  POP  A  ’  ANDIMG) . 

r  DISTE  tHs  GPC^KD  DISTANCE  FPCS  THRESHOLD  TO  THE  END  OF  THE 

C  RPGXU«T  *S  THE  ATrCPAPT  F* IES  IT.  (S'E  COMMF3T  ABOVE.) 

.1  DISTA  "HE  GROUND  DISTANCE  FRCM  THRESHOId  TO  THE  POINT  BEING 

0  AN AT  Y2PD. 

C  PR'-^DA  IS  THE  rNT  Y  USEP  CF  PCS*"T  AND  IT  MAY  BE  CAM  2D  MANY 

0  ’"I MRS  DEPTHS  the  COMPUTATION  CP  ENERGY  METRIC  CONTOURS. 

C  "HE  i;jp"T  DATA  F^R  POSMHT  IS  PROVIDED  BY  THE  CAIIING  ARGUMENTS. 

0  THERE  ARE  TVD  "XIT  RETURNS  FR*'*  POSMCT  JOCATED  AT  LINES  NUMBERED 

0  A”D  U 3  IN  the  SUBROUTINE  IISTTKG  I"  SECTION  c.  THE  RETURN  AT 

-  *  thF  ’U  IS  nSED  SHrr  THE  SMOOTHING  FUNCTION  IS  USED  WHILE  THE  RETURN 
C  LIKE  ??  IS  USED  WHEN  THE  ANALYSIS  PCINT  IS  BEYOND  THE  SMOOTHING 

C 

O  THE  OUTPUT  fF0M  t>usU"T  TS  A  VALUE  FOR  THE  THRUST  AT  THE  ANALYSIS 

o  nr  TNm  AND  IS  PASSED  T^  -"Hr  c*.’1  TNG  PROGPAK  THROUGH  THE  PUNCTICN 
0  "HE  FUNCTION  PC  SMTP  SMOOTHES  THRUST  TRANSITIONS  OVER  1000  FEET 

0  Goouuo  DISTANCE.  '-’HEN  AIRCP  AFT  THRUST  CHANGES  ARE  DEFINED,  IS 
C  *TN3;E  WITH  ground  DISTANCE  .AND  THAT  THE  NFW  THRUST  STJT  BE 
C  r PALIZED  AT  iood  FEE"  :;RO”'*D  DISTANCE  AFTER  THE  CHANGE  IS  INITIATED. 

r* 

Subroutine  PPGRM 

SUBROUTINE  PP5nN  (<X,YY, NETS ,T AST, M0RF,NP1T, NSW, IGO) 

I- 

****************************************************************** 

C  L"C»L  VARIABLE  PTCTIOF ARY 

<•  A  -  TOTAL  EQUIVALENT  T/C  OPERATIONS  24  HPS 

A.MT  -  OUTPUT  TITLE 
C  AP  -  ANOTHER  "UTPUT  TITLE 

'•  D  -  T^TAT  T/O  ''PERATIONS  IN  OPPOSITE  DIRECTION  TO  A 

0  BAfKF.P  -  STILL  ANOTHER  OUTPUT  TITLE 

C  DATE"  -  D''MUY  X RG  TO  CONTAIN  DATE,  FOR  AIPHA  OUTPUT 

e  T  -  FVEP  "C?,;LAR  ALL  P"PPOSE  LOOP  CCUNTER 

C  IC  -  T  COUNT 
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r 


f 

c 


c 


r 


t : 


r 

r 


r 


r 


r 


TFLPEF  -  CURRENT  FILE  !! *t«nER  (UPDATED) 

TO~  -  EPR'.R  RETURN 

IIS'  -  N"MUER  OF  PRINTS  IN  OC^NTOUR 

IUCCK  -  NOT  EO-AL  ZERO  INDICATES  PUl’WAY  IHSIDE 

TPSTZ  -  S'”TIP'F  CONTOPR  ”7  AS,  ZEP''  MEANS  SINGLE  CLOSED  CONTOUR 
IF  _  >rip  COUV’E!' 

I F D T G  -  KUMPER  OF  pi’JVAY  WITH  MCST  WEIGHTED  T/R  OPERATIONS 
ttjtt  -  CCNT''’,K  TI"” 

rv(?  -  O' NETS  :HK3EP  "F  DISTINCT  CONTOUR  THRESHOLDS 
v  -  C”E?e'i:T  R***IWAY  ’P’MRER 

L  -  K”SEER  'F  V'’’ WAY  IK  OPPOSITE  DIRECTION  TO  K 
’  ST'T  -  RETURNS  FT’ V  STARTS  (CONTOURS  FROM  TAPE) 

"ETT.EV  -  •"AP’E  CF  THRFS'r’DS  FOP  THE  SEVER  A".  METRICS  INUSE 
** HTI I"'  -  ALPHAMERIC  LITERAL  OF  CURRENT  PRIMARY  METRIC 
•"•RE  -  INDICATES  WHEN  "HF  I. AST  PCIFT  OF  A  PLOT  nAS.  BEEN  DONE 
“ A w P  -  A°R  AY  OF  P-’I-VAv  VAH3S  (SC  CALLED) 

NPT it  -  F’  AS  INDICATES  ANOTHER  PICT  REMAINS 


*:?T  T  -  N” ‘1BER  CF  PT  #'T  PR  ESENTT  Y  EEIHG  PROCESSED 
NPTS  -  NVMOEP  OF  POINTS  CALMLATEP  THUS  FAR 
'•RV  -  REP  '?  DEFINED  P""  SAYS 

OHWY  -  ::',y3Ei;  OF  DEFINED  R’NWAYS  (PASSED  IN  COMMON) 

■jit  ■  ANOTHER  *'*1TPUT  TITT.r 

-USE  -  TASTE  •*»F  OPERATIONS  PER  R’tKKAY 

~»D  -  •"'PC  "ITT  E  Dt.sRPISH 

•M ’  -  cCNTr"R  V A'  ’E 

Y  -  Y.  COORDINATES  OF  COUNT' NT 

>:  a  -  sunk  ay  co-pns,  ?.r."iv.v 

YAR  -  CONTOUR  AREA 

on  -  ’"NKAY  COORDINATES,  DUP.ARr»»PE 
XLG  -  lAYTM'JM  VA’-’E  CF  X  IN  PR  EX  ENT  CCNTCNP 

VSM  -  MINIM'.’'*  V.AT'»3  OF  Y  IN  PRES  FIT  CCUKTOCR 

x»  _  {-"PPEN^  :<  COORDINATE 

Y  -  Y  C-ORDINArES  "F  C**-KTV*R 

YLN  -  MAXIMUM  VAL’F  CF  Y  I"  PRESENT  CONTONE 

VRM  -  MI ”0M,'M  WAIT.  OF  Y  IN  PPESFNT  COHTO'JR 

YV  -  CURRENT  Y  COORDINATE 
pp;<j'‘  -  s’i2R'",',i':,? 

THE  S'’3PCT!'tNE  ppjrm  TABULATES  THE  CCSTOH?  POINT  COORDINATES  AS 
-1Ev  »Ff  COMPUT’D  ' KD  OUTPUTS  THEM,  »LONG  WITH  APPROPRIATE 
IDF  5’IFTCA"'IC"  TNERRMATTf*!,  TO  M.AGKFTIC  TAPE  "NT  ESS  REQUESTED  NOT  TD 
PY  »i!F  'i;;CF.  ADDITIONALLY ,  DP ,3V  CAN  REDIRECT  IN-LINE  PRCCEESI11G  AS 
•v  ‘ PTICI".  ’"iFR  REO'J’ST, 


??■'.?'*  CAT’S  THE  SUSP  OPT  IRE  INSIDE  .AND  SKFIT. 

PPJRY  MAS  ONE  ENTRY  P^THT  AND  THE  CALLIKG  SEDUENCE  Is 
C?.’*  PPGR-'  (<X,YY,NPTS,TART,MCH!:,N?IT,NP.H,*) 


XX  -  THE  Y-CnCRDTH ATE  CF  THE  CCKTCMP.  POINT 
YY  -  THE  Y-CCO RUINATE  CF  T’!F.  CCXTCUF  POINT 
OPTS  -  THE  NUMBER  CF  POINTS  IN  THE  CCKTCUR 
’AST  -  IF  "CT  =  0,  THIS  T3  THE  LAST  POINT  CM  THE  CONTOUR 


,,?RE  -  !’  O'—  =  0,  THIS  IS  THF  T  AST  CONTOUR  IN  THE  FILE 
N PT  V  -  CURRENT  CCOT’UP  N’>  MR. E”  IN  THIS  FILS 
NPK  -  N’MUER  "F  DEFINED  3 UNSAYS 


*  -  MEMORY  *OCA-IOE  IK  CALLIKG  PROGRAM  FOR  ALTERNATE  RETURN 
SHI'/!!  WILL  rEDnEC"-  IN-LINE  PROCESSING 
"HE  MATS  PROGRAM  'J'TSE*  IS  THE  ON!  Y  USER  OF  PPGPM  AND  IT  KILL  BE 
''ALLOT  A FT K T  SvpDY  p'-yRT  ON  A  CCNTCUP  HAS  REEK  DETERMINED. 
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n  "HE  IKP'»T  DATA  FOR  PPGRH  IS  PR-^VIDFO  THROUGH  THE  CALI  IN3 

r  af.j-seuts  a:;d  the  labeled  cc-bhos  blccks  /rubway/,  for  rubhay 

C  CC“"UI*!AT’?S,/TTT7.R/,  POP  CCSTUItH  TITJ ES ,/PLCTR/,  FOR  CPTIOAHL  ’ 

C  '‘EOTPCTTCV  •’EQUEST  (VARIABLE  IPSIZ)  AND  THE  CORTOBR  AREA  (VARIABLE 
C  v*.pi,  /an/,  POP  THE  COKTD?  V\ ID*,  /PVYBTL/,  RUNVAY  USE  AMD  BUSIEST 
C  TAFFTF  F»*t\AY. 


Subroutine  PREPR 


S7BUCUTIBE  PREPR  (HP,  no, RL,  H,PHR, V, ITAC, HTRKK,HAXSEG,lXPP)  03-15-79 

**************************** t************************************* 

!OCA’  V  APT  AS"  p  DICTICI  ARY 
’"G  -  POT  AT  K  K  ABO’S,  CURVED  SE*» 

A-*  A  -  AIRP‘PT  ALTITUDE  ) CCRP ECTED  { 

APPTHP  -  TAR" E  Or  THRUST  SETTINGS  (INPUT  DATA) 

asppcc  -  a sos  pfp?'‘R’*a;:ce  profit  e 

AVE'A’T  -  AVERAGE  ALTITUDE  CVEHR  SEGHEKT  AFTER  RESTRICT1CH 
UV  -  RADIOS  Of  GOOSED! 

COTYP1  -  CUTBACK  TYPE  1  INDICATOR 
C3TYP*  -  CUTBACK  TYPE  "  INDICATOR 
D»IT  -ALTITUDE  ICS.;  FROE  PHSTr.ICTICH 
UD  -  OIST'.UCE  '’CDS  PR^rr  E  ro  CURRENT  POIBT 
dpist  -  digt.adce  OVER  vhtc-!  FESTF.ICTICK  APPLIES 
OH.  -  DE’TA  C'RPFCTIOB  FOR  THRUST  VAT "ES 
DIP  -  VIED  DTRECTTDE  RELATIVE  TC  PCS  I  AXIS 
00  -  3Ei:iSl,r  ’  SNGTM 

"m»LT  -  UEHiP’  ADCVE  UPCUDD  AT  EKD  CF  CUTBACK  PROCEDURE 
SUOR  -  DI  *.TAVCE  AT.'"; G  TP  ACE  TO  F”D  OF  C"T3ACK  PROCEDURE 
9.AUSA  -  VALUE  CF  RES TPICT IOU 
■•CPM  -  CTISB  jPADTEUT  RURT’iO  CUTBACK  PROCEDURE 
H  -TRACK  ELEV  ATC’- 

LAPP  -  .A*»P!  C?.C:«  PARAMETER  I.  D.  (CPDIRA!  )  33-23-79 


r 

icp-.-d 

-  CUTBACK  TO^ 

ICJSC" 

-  TT-EGEE  C" 

ir.AC  - 

AIPCHAFT  TYPE 

▼VBfS  » 

fifst  'a  X  CC 

r* 

TTf. ;  - 

TRACK  G"C’’P 

r 

i  rs-;.; 

-  BOBBER  CF  T 

.tnT  u  r 

-  nc— :d 

r 

EATCH 

-  E  APS  A/C  TY 

n 

'ASK  - 

DECODES  IE": 

c* 

1'.  YGT-.- 

-  ’  \FJES7  *:u:« 

*<s  -  track  t!i"H  greatest  up- der  cf  segs  ) saxseg-1  ( 

-  TF.ACK  Gpoon  'X' 

UP  -  P?’"rIT  S  M-’TEo 

“OS  -  *;-’L-l£P  CF  PROFILE  SELIETTS 

*p  —  sr,;tj;J(RiT.*w  »*..  « ■* r?«» 

— >t  -  rHsT'iCTir!:  ryop 

"Tfn  -  RABr  L  op  -RICK  HW’SFS 
*5‘rPK*  —  TRACK  T”.!in? 

parse  -  :;c ;uh"t  idft  fcr  each  tpack  (see  unn 

PI  -  ro-s-ATT  Eg-'ALS  TH3 f E  SCSSTHIFG 
P?“F  -  TABLE  ‘'F  ?EPFCF'**LCH  onrpjTj;;j 
?*P  -  T  IP-ST  SETTI'"; 

p-’r  1  -  SH""rl:!G  TC  PCSF'-B?  TC  FF.STUICTICI 

P*  -  P’tUV.SY  *  EU"0"I 


3  •y>  ?*!  -  ;■  •»!*  > y  7  H'TGTH 

;i7-:  -  i'atcates  "i a'id^d*: Eti:»  rF 
j*vf  -  ~r.i.v  sect  nr  a*ii-"d"  after  kfsthictioh  app’ieo 
"??  -  'esthictt'-s  :;?cpg  ti ems 

.;TR,  -  START  ’c  KT'TVIC--  IC‘I 

*■)  -  "able  ‘7  ?:.v»3.'.‘cr m.  r~\c<  leegths  -•'•  e:id  ■:?  successive  r.s-ss 

(E'C’—ES  LAS"  S?J) 


-  T!  ACK 


!TH 


*.  Cr‘'PC’.'"!iT  Cr  >:!n  VE’~'*:tv  jv  OTf-ECTl'"!!  CF  TRACK  SEGr.EST 

vi  k-velc :ity  a i r::r,  track 

?*>  -  Y-V'T^CTTY  S’ 0*1  A  7 R A C 
■•••  -  AID "l AT 2  SPIED 

-  xtd  vr  *cT'Y  (e-*:-t  •, 

■  ■  -  _  »Tr^j  7r*  *‘‘l  T  v 


■••:*■  a  re. E’-'  i-  at?;- art_s  directicd  7?  ttavel 

x-cc*”D,  7T''v?7i~r 


v  -  y-c?.'"0»  •••»»*••••  oir-crr": 

_  s-Tnr-!^i::r 

»r:cc»TMc:;  T'lT  y  i’  33.-,  CF  OP  E?  ?.TT?F  M.  PF.PFCPr.SCE  PARAMETERS 

vstr*;r"?  v»d  tm ps:i  ?f  ,s  gives  right  at  a  gives 

r-’-.  VT!:y  SEP  A-7I”*JS  EFFL'CTS  OS  MRCR  AFT  PEDFCP.'.  A‘*CE  ARE 

r-"si.v:f£o. 

'•:*  SUV ■>.0’I'rT',i  P?E?R  CALLS  "HE  37BPO,,TiKES  DELTA,  GC’JFXl  Alia  PRCFDA. 

Pi  E-'lr  ■:  RE  E--PY  POTFT  AS?  THE  CALLIS;  SEr'EIiCE  Is 

.  1>?EP”  ('*?,D,P'  ,:i,P-<i>#V,T7AC,57aK,aAtSFG,IAP:»)  .13-13- 

V!jL-  • 

-  ?P-''FT7  r  r?H  C**  PDF’!-  EtTGHT 

■>  ■  AT T AFC S  'SOS*.  GRO"FD  7? ACS  TC  TRACKS  PCIUT  CF  CLOSEST  APPRGACH 
...p  -  r.-TV-.r  -v;  >;2C'  S^AR  Y  SEG1F.I?  WHICH  13  CIC5EST  TO  THE  AHALISIS 

p  *  y-’~ 

»'  -  PUDRA*  1 F VG T H 

M  -  'IRC-'AT’T  .UTI^’PE  A3DVE  GROSS 0  LEVF7  (CCHPUTF.a  BY  PR2PP) 

P«P  -  AIFCiiA?"  r:n*ST  S2TTIFG  (Crr?pTED  BY  PREPP) 
v  -  ATPCPAFT  V EiCCITY  (COMPUTED  BY  PREPS) 

TmAC  -  UCTSE  CURVE  SET  ISSUER  ASKI3HED  TO  AIRCPAFT 
FTPS  -  TP  ACE  S«7*3S9 

R.'YSEG  -  ’•PACK  SEO-EV:  T'MBSv  BFTKG  CfJJSIDERED 

THE  RGPF^'l-TSE  EXPOSE  IS  THE  OSIY  "SEP  CF  PPEPR  A”D  *111  CALL  IT 

TIRES  px tor. 

THF  IH?  iT  DATS  TC  PP~P?  IS  PF^'IDED  BY  THE  CALI IUG  ARGU HERTS  AS  K ELI. 

AS  ISPETED  C^ESCS  3LpCKG  HUCSE  DESCRIPTORS  FCLLOi. 
rv.’li  B7  OCE  PARTSB’ E  RESCRIPT!??! 

/P—IKAY/  SPA  ’  IPP’-RT  AITTTPDE  ABOVE  HEAR  SEA  LEVEL. 

PVYI  p*’MWAY  1SHSTHS. 


c 

ACK/ 

'•"SEG 

SEE 

o 

.'.ASK 

Discussion 

r 

PAPA* 

T.t 

r 

7R 

SDRPO 77I.JF.  HDT. 

r 

/-•SPC-'P/ 

DC'"’ 

cosr.cs  DISTANCE  FCR  IHDIVTD’»AL  GBOGPS. 

C  . 

I-RG 

SPC?P  ASSISKHF.KTS  FOP  EACH  TRACK. 

V 

/wiro/ 

VE’ 

Visa  VEIOCTTY  (K.KCTS)  FOB  EACH  GROUP. 

r 

Din 

VI HD  DIREC riO”  PEI  ATI V2  TO  POSITIVE  X-AXIS 

C 

/?P?FI 1/ 

PRCF 

AIRCRAFT  PEPFOK.Y AHCE  PROFILES. 

r* 

/P  ESA'  T/ 

S  A? 

HCTSF.  ABATF.HENT  AI-TERRAT IVE  FOR  EACH  TRACK 

n 

STR 

DT5T.AIICE  A’ONG  TRACK  TO  START  OF  PROCEDURE 

z 

ESDR 

DISTANCE  AICNG  TRACK  TO  EKD  CF  PROCEDURE. 

r 

TC3KC 

A8ATEHSHT  OVERRIDF  COHSASDS. 
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ENDALT  ALTITUDE  ABOVE  GROUND  LEVEL  AT  END  OP 
PROCEDURE. 

‘•'HERE  ARE  TWO  EXIT  RETURNS  FROM  PBEPR  LOCATED  AT  LIKES  NUMBERED 
82  AID  92  13  THE  SUBROUTINE  LISTING  IS  SECTION  5.  THE-  RETURN  AT 
*  132  8?  IS  ns ED  IP  THE  PJISHT  IS  A  TAKEOFF  OR  SO  WISD  CONDITIONS 
EXIST  F^P  THE  FLIGHT.  THE  RETURN  AT  LISE  92  IS  USED  WHES  THE  FLIGHT 
RFI”G  EXAMINED  IS  A  ! ASDING  AKD  SIND  CONDITIONS  ARE  PRESENT. 

TH2  OUT POT  FROM  PR2PR  IS  PROVIDED  BY  THE  CATLING  ARGUMENTS  AS 
WETL  AS  THE  VARIABLE  ASPRCF  IN  LABELED  COMMON  BLOCK  /PROFNI/  WHICH 
IS  1  TE*!Pr‘-R?.RY  STORAGE  *OE  THE  EXPI ICIT  DEFINITION  OF-  THE  CURRENT 
PERF'PMANCE  PROFILE  AND  KITI  HE  USED  BY  SOBRODTINE  OVRLAI  FOR.ASDS 
AMD  DOSE  CALC"LATICNS.  THE  FOLLOWING  PARAGRAPHS  DISCUSS  THE 

opocESsrm  performed  by  prepp. 

BASICALLY.  THE  ALTITUDE  IS  FOOKD  BY  II NEAR  INTERPOTATION  OS  THE 
DISTANCE  ALONG  THE  TRACK  IK  THE  PROFILE  TABLES.  HOWEVER,  THERE  ARE 
SOME  MODIFICATIONS  THAT  CAN  BE  APPLIED  TO  TAKEOFFS.  FIRST,  IF 
"HERE  IS  A  WIND,  THE  AT  RC?  A  FT  PEHFCPEANCE  8 FT  ATIVE  TO  THE  GPOUND 
WILL  CHANGE.  THIS  MODIFICATION  IS  PERFORMED  BY  .MULTIPLYING  THE 
DISTANCE  FTOWN  AT  o*>3  STRAIGHT  TRACK  SEGMENTS  BY  THE  FACTOR 
DELTA  0  =  VA/(VA-V) 

‘•1EPT  VA  TS  THE  AIRCRAFT  SPEED  AND  V  IS  THE  COMPONENT  OF  THE  WIHD 
SPEED  AT  CFG  TRACK  SEGMENT.  NOTE  THAT  IF  V  >  0,  THEN  IT  IS  TAIL 
VTKD.  ALSO,  IF  THERE  IS  AN  ABATEMENT  ALTERNATIVE  APPLICABLE  TO  THE 
T**ACK  IN  QUESTCN.  THIS  MOST  BE  ACCCUHTED  FCP  AS  THE  FOLLOWING 
PARAGRAPHS  DESCRIBE. 

WHEN  A  NOISE  A  HATS. MEET  ALTERNATIVE  IS  SPECIFIED,  THE  STANDARD 
"AKEOFF  PPOCED',PES  ARE  MODIFIED  BY  INSERTING  A  PHOFILE  SEGMENT  WHERE 
THE  ""HP  "1ST  AND  CLI-B  GFADIENT  APE  AS  SPECIFIED  BY  THE  ABTEMEET 
DEFINITION.  THE  START  AND  ENDPOINTS  OF  THE  ABATEMENT  SEGMENT  MOST 
5*  SPECIFIED  3Y  THE  HSFM  A3D  MAY  BE  GIVEN  AS  EITHER  AN  ALTITUDE,  IS 
FEE1-,  LP  A  DISTANCE  ALCHG  THE  TRACK  FROM  BRAKE  PELEASE,  IN  NAUTICAL 
THE  -NLY  EYCETT Xn"-  TO  THIS  IS  THAT  IF  THE  ABATEMENT  CT.IMB 
G*» ADT FNT  IS  LEPO.  THE  ENDPOINT  MnS?  RE  SPECIFIED  AS  A  DISTANCE  FROM 
r"»AKE  RELEASE. 

■"HERE  AHF  FIVE  DT^MRETT  TYPES  CF  NOISE  ABATEMENT  ALTERNATIVES 
All*' •'ED  FT1*  IN  ’HE  PROG  NAN: 

’.  .V"I?»’DE  RESTRICTION  {GAMMA  =  ?) 

TAKEOFF  P'KE” 

■>.  VAXIM-,M  '"LIMB  p M 

<-.  TMGINE  '"‘•ST  IEVF.L  V  TGHT  POKEP 

MAINTAIN  SPECIFIED  CLIMB  GRADIENT  (GAMMA) 

V'lSPR  THF  ""’-'.I*-E  DU"  ). EYE1  FLIGHT"  CUTBACK  IS  DEFINED  3Y: 

T  =  T'!S-,ST  RrO'-IRED  F~?  1 EV E1  FLIGHT  WITH  ONE  ENGINE  OUT, 

*ro 

S.AMM®  =  GPADIE”T  AT  VHTCH  SPEED  Will  RE  CONSTANT  WTTU  THE  ABOVE 
T-,"DST. 

A3.ATEMRNT  1-YPES  A  THROUGH  -  HAVE  THE  CLIMB  GP ADIEN TS  AND  POWER 
SET-'‘I’,GS  ST'S^D  IN  r:iE  .LTRCRAFT  TAKEOFF  PR^FIIE.  THE  TYPE  5  CUTBACK 
rpOnXPES  SOME  S'»S''I  A’  C-' KPHT  ATI CM •  SINCE  THE  GPADIF.MT  IS  I3PUT  AND 
TS  "HE  SAMS  FTP  ALL  Ail-CRAF?  TYPES,  THE  THRUST  MUST  DE  COMPUTED. 

•~  «IS  TS  n"«E  jy: 

T  =  (T.r.M?.*W/T".C*  (N-1)  )/N 

vj  £!■:•: 

”  TS  NIK  HI  MU  GRADIENT 

V  IS  "'I I  GROSS  WEIGHT  CF  THE  AIRCRAFT 

TTD  is  THE  TilT' ST  FCP.  ENGINE  Ot'T  LEVEL  Fj  IGKT 

CUTBACK,  AND 

*!  TS  rto  r-MBE3  "F  ENGINES 

TV'O  M2”U'"0S  A”c  *1SED  TO  INSERT  THE  ABATEMENT  SEGMENT  INTO  THE 
S'* AND’ UN  P'^FLl1-.  IF  THE  A3*,TEH?:iiT  PPCCEDURE  STARTS  BEFORE  THE 
START  OF  t!;K  fjvT:!  oR'FI’E  SEGMENT,  THFN,  AFTER  THE  ABATEMENT 
SEGMENT  FNDS,  THE  AIFCPAF"  RE2NTEPS  THE  STANDARD  PROFILE  AT  THE 
START  Ttr  rc-TT-!  SEGMENT.  WCTE  THAT  SINCE  THIS  PAST  OF  THE 
?CCFTLF  IS  DEFT’- ED  BASED  "N  AN  ALTITUDE  IF  1E00  FEET  AT  THE  START  CF 

-  he  F^ncr:  sfime::",  ?E?rr:-MANcx  fcf  the  p.emihdep  cf  the  profile 


n  n  ■->  o  t  o  .  j  o  n  i  o  o  n 


“''ST  AGAIN  l«c- CORf'SCTED  PY  DE' TA. 

TF  THE  ARAT2HE!:-  PPOCED'JPF.  BEGINS  DUPING  CR.  AFTER.  TUB  FIFTH 
SEGNFNT,  THEN,  *.T  -HE  F'.'D  OF  THE  SEGHEKT,  THE  AIRCRAFT  RETURNS  TO 
-HE  STANDARD  PPrFl*E  AT  THE  POINT  SHEPF.  THE  ABATEMENT  PROCEDURE 
S-AFTFO.  A" SO,  I"  1:5  P''SS:2L2  TO  SPEC1FT  OVERRIDE  NODES  FCR. 
SPECIFIC  AIRCRAFT  TYPES.  THESE  ARE; 

0  -  ACCEPT  ANY  AnV?EN2NT  ALTERNATIVE. 
i  -  \*0  *y  —  *T  AT  I V  "  'F  ANY  TYPE. 

•»  -  ENGINE  LIVE’  FLIGHT  ABATEMENT  CNLY. 

-  -  LAKErFF  AND  C’IH3  ONLY. 

’IFF  TH-  A'TTT’T.E,  THE  THRUST  IS  DETERHINED  BY  INTERPOLATION  IN' 
r«E  PROFILE  TABLES,  K TT '!  THRUST  TRANSITIONS  SNOOTH3D  OVER  1000  FEET 


" F  ■:RO:irn  TRACK  DISTANCE.  SINCE  NOISE  IS  CONSIDERED  TO  BE  A 

F"NC-TCN  /'e  C^R^'CrfD  NET  THRUST,  A  CORRECTION  FOR  PRESSURE  ALTITUDE 

F"!!CTI''’'  ''y  C'PFECTin  a.  C1"  THRUST,  A  CORRECTION  FOR  PRESSURE  ALTITUDE 

;,^ST  pH  »^3£  SHF.'.' EVER  ":JC''PS  ECT  ED  NET  THRUST  IS  STORED  IH  CR 
C  r^-P^TED  BY  "HE  P?‘‘,GRV1.  THIS  IS  THE  CASE  FOP  THRUSTS  STORED  IN  THE 

C  Trpr-  ACH  PSnriLSS  *  ED  r  5P  THE  JE7ET  F! IGHT  AND  NOISE  ABATESE3T 

T  T HrnSTS  STUPED  TITHE  STAND ARC  “AKECFF  PROFILES.  {SEE  DELTA  . 

C  sitr."o«fTI*-E.  J  AT  ADDITIONAL  '•-'DIFICATION  IS  HADE  TO  SIMULATE  THRUST 
C  CHANGES  F-~R  AN  APPPr  ACH  WTTH  A  RIND  VECTOR. 

C  -  AIRC'  AFT  WIGHT 

C  5AK”A  -  CT IH 3  GRADIENT  (NEGATIVE  FOR  DESCENT) 

C  YW  -  FIND  SPEED  CC.1PTNF.NT  IN  THE  DIRECTION  OF  FI  IGHT 

<:  ”A  -  AIRCRAFT  Air  SPEED 

C  BE’  T  f.  -  RRESS'TF  A’TTVJUE  CORRECTION 

r  r  -  ru.HBER  OF  ENGINES 

C  THE  VEICCITY,  ITKE  TH-  THRP5T,  IS  INTERPOLATED  FRD3  THE  PROFILE 
r  TAPLES,  HU-  WITH  “VC  POSSIBLE  CCPRECTIOKS.  A  KIND  CORRECTIO*  IS 
C  SPP’TED  TO  STRAITS1"  TRACK  SEGMENTS  BY  ADDING  THE  AIRCRAFT  SPEED 
C  .\**D  “HE  CON  POTENT  TF  THE  WIND  SPEED  IE  THE  DIRECTION  OF  THE  TRACK. 

C  FTP  CURVED  SEGEEFTS,  1“  IS  APPLIED  BY  INTERPOLATING  BETWEEN  THE 
r  C-PPTCTED  V2J DCITITS  "U  THE  SURROUNDING  TRACK  SEOSPETS.  FOR 
C  A3ATENENT  ALTERNATIVES,  THE  VELOCITY  TS  ASSURED  TO  BE  CONSTANT 
C  R”RIX0  THE  ?P'"1CFD"r  E  AND  IS  SET  EQUAL  TC  THE  VE10CTTY  AT  THE  STAR? 
r  '•p  THE  ABA“EVENY  SEGMENT.  IK  ORDER  Tn  PREVENT  AN  EXCESSIVE 
r  C'" P R ?CT I C N »  -12  VELOCITY  IS  NEVER  PERMITTED  TO  EE  LESS  THAN  32 
-  K"CT1;. 


Subroutine  PROFDA 

S-URDWTINE  PROFDA  (HP, DD, RLL ,H,PKB, V , ITAC,I, IAPP)  03-13-79 

r* 

C  GIVEN  DISTANCE  ALONG  FT IGHT  TRACK,  PROFDA  COHPDTES  THE 
r  AIRCRAFT  HEIGHT,  THRUST  SETTING  AND  VELOCITY. 

r-  ^n************************** ************************************** 

C  LOCAL  VAPIABLE  DICTIONARY 

C  APPTHR  -  APPROACH  THRUSTS  (INPUT  DATA  FOR  INTERPOLATION) 

r  *.»T  -  THPUST  SETTING  AT  START  OF  SEG 

C  ATI  -  THRUST  SETTING  AT  END  or  SFG 

C  0  -  DISTANCE  ALONG  FLIGHT  TRACK,  CLOSEST  PCIK?  TC  RDKBAY  END 
C  DD  -  DISTANCE  A' OSS  TRACK 

C  DT  -  DISTANCE  ATOSG  TRACK 

C  3TD  -  GROUND  TRACK  DISTANCE 

C  GTDX  -  X  CCCHD  CF  GROUND  TRACK  DISTANCE 

C  H  -  HEIGHT  ABOVE  RUNWAY  {INTERPOLATED) 

C  I  -  ARRAY  INDEX  OF  LARGEST  ENTRY  IN  PROP  LESS  THAN  DT 

C  IAPP  -  APPROACH  PARAHETER  I.  0.  (ORDINAL )  03-28-79 

r  r»AC  -  A/C  TYPE 

C  JRNC  -  CONSTANT 


i 
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JOIST  -  RUBBER  SEGMENT  DATA  PC 1ST S 
KK  -  CONSTANT 

I  -  TOOK  ARC  FOP  APPTHR  KEYED  TO  ITAC 
BATCH  -  TABLE  Of  INDEX  ASGS  TO  APPTHR  BY  A/C  TYPE 
IP  -  PROFILE  INDICATOR 
BP  -  PROFILE  BOBBER 
PROF  -  PR'- FILL  DATA  (I*  COB  BOB  PROFIL.) 

PKR  -  PETURKS  PCHgR  SETTING 
R1  -  RUNWAY  LENGTH 
P*T  -  NORWAY  r ENGTH 
V  -  VELOCITY 

2.R7  PROF DA  -  SUBROUTINE 

PROFDA  IS  USED  BY  SUBROUTINE  PBEPR  TO  DETERHIHE  THE  ALTITUDE, 
VELOCITY,  ABD  THRUST  F^n  A  GIVES  FI  TGHT  AT  A  GIVES  POINT. 

PROFDA  CALLS  THE  SUBROUTINES  DELTA,  POSHOT,  PRESET,  ABD  GERFNI. 
PROF  DA  HAS  CHE  ENTRY  POIHT  AFD  THE  C  ALLIS'5  SEQUENCE  IS: 

cal:  profda  cbp,d,bi ,k,psr,v,itac,i,iapp) 

WHERE 

HP  -  PERFORBA"CE  PROFILE  SOMBER 
D  -  DISTAECE  ALOB5  PROFILE  TO  AKALYSIS  PCIST 
R?  -  RUN  BAY  L  EBGTH 

H  -  ALTITUDE  ABOVE  GROUND  LEVEL  (RETURNED) 

PUR  -  THRUST  SETTING  (RETURNED) 

V  -  AIRCRAFT  VELOCITY  (RETU RNED) 

ITAC  -  AIRCRAPT  ASSIGRED  BOISE  CORYE  SET 
I  -  BOMBER  f'F  SEGBEBTS  TB  PROFIIE  OP  TO  OAMALYSXS  POUT. 

PREPR  IS  THE  ORIY  SOBROOTIBE  TO  CALL  PROFDA  ABD  IT  BILL  DO  SO 
BABY  TIMES  DURING  EX8CUTI0K. 

THE  TNPPT  DATA  TO  PROFDA  IS  SUPPLIED  BY  THE  CALLING  ARGUMEHTS  ARC 
THE  VARIABTES  PP"F.  BATCH  ABD  APPTHR  IB  I  ABET  ED  COHHOB  BJOCK 
/PROFIT/. 

THERE  ARE  FOUR  EXIT  BBTDRRS  FROH  PFOFDA,  LOCATED  AT  LIBES  RUBBERED 
'2,  57,  RED  fo  IB  THE  SOBROOTIBE  IISTIEG  IB  S5CTICB  5.  THE 
RRTPPR  AT  LTSE  52  IS  OSED  WHBS  T8B  AKALYSIS  POIBT  IS  BEYOBD  THE 
STOPPI3G  POIBT  FOR  A  LARDIKG.  THE  BETORB  AT  LIKE  57  IS  OSED  AFTER 
SEOOTHIMG  THE  THRUST  FCR  A  TAKEOFF.  THE  RBTURS  AT  LIMB  59  IS  USED 
IE  FO  SMOOTHING  IS  BECESSARY.  THE  RETURN  AT  LIKE  C#  IS  USED  AFTER 
SMOOTHING  THE  THRUST  FOR  A  T  ARDXBG  ABD  APPLYING  ALTITUDE 
CORRECTIONS. 

THE  OUTPUT  FROM  PROFDA  IS  CONTAINED  IH  THE  CALLING  ARGUMENTS. 


03-13-79 


GIVER  DISTANCE  ALONG  FLIGHT  TRACK,  PROFDA  COMPOTES  THE 


AIRCRAFT  HEIGHT,  THRUST  SETTING  AND  YEIOCITY. 


NP  -  PROFILE  INDICATOR 

D  -  DISTANCE  ALONG  FLIGHT  TRACK  FROH  CLOSEST  POIBT  TO 

THE  FAR  END  OF  THE  FONNAY. 

RL  -  RUNWAY  LENGTH 
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Subroutine  PROFRD 


SUBF^'H-rHE  PPOFRE  (IGC-I.TCNT.IDUHP.HCDPRF) 


05-30-79 


•a**************************************************************** 

t-CCA’  VARIAB!  F  DICTIONARY 
A  -  DEFAUJ  r  AIpf’CFT  ALTITUDE  (0  FFET) 

APUT  -  AIRPORT  PRPSSN-’E  ALTITUDE 
AP"'E'*P  -  AIRPORT  T.MP  DEGREES  KE’VIS 
Cl  -  ALPHAMERIC  OUTPUT  LABEL 
CT  -  DUMMY  VARIABLE  FOR  OUTPUT  LABE! 

DEM  -  cUTPi?  LABEL  (/S.M./) 

FT  —  VJTPPr  *  ABEL  (/FEET/) 

T  -  nnp  COUNTER 

TCMT  -  PROFILE  DA'A  (YES,  ESALLY!) 

TCST  -  D’»MSY  ARC 

IDUflP  -  PASSED  TO  SSTHES  AS  All  OUTPUT  IBDICATOR 
°ETBP”S  AS  ERROR  IKDICATOR 
-jrjiT  _  n*1TPU'r  T  ABET  S 

I FM?  -  MORE  F^EM A“r  IBP?* 

rcvT  -  ARRAY  CONTAINING  FORMAT  IN FOR HAT ION 
ISO  -  ALTERNATE  RETURN  ADDRESS  IB  CALLING  PROGRAM 
IGOl  -  SPRcr  ret  RE  ADDRESS  IB  CAHIBG  PROGRAM 
IT  -  UNITS  INDTCA.w.  FCR  PROFILE  DATA 
TPJ.E  -  OUTPUT  •'ABE’  AtlR  AY 
IWAR  -  0’,T?"T  LABEL  OF  CURREHT  LIKE 
J  -  IOCP  COUNTER 
k  -  profile  :;~euf.p 

V  -  "PEER  BOUND 

PROF  -  A  f'Z  PEPF  PROFILES  (SEE  CCEMCN  PROFILE) 

T  -  DEFA"  ’SPORT  TEMPERATURE  ) 2) )  DEGREES  KELVIN  ( 
pR-Fpn  •',TI"F 

UROFFD  RE.  AIRCRAFT  PERFORMANCE  PPCFILP.  INFORMATION  FROa  THE 
T-pu-  DATA. 

PRCFFD  CA’LS  THE  SUBROUTINES  HESAGE,  NBETR,  SETRES  AND  TPNOF. 

PROF PD  HAS  ONLY  ONE  EETRY  PCINT  ADD  THE  CALLING  SEQUENCE  IS: 

CALL  PROFRD  (*, IC"T, IDUKP) 

V  H  E*-" 

*  -  MEMORY  LOCATION  IN  CALLING  PRCGRAH  FOB  ERROR  RETURN* 

TCNT  -  USED  .AS  TEMPORARY  STORAGE  BY  PROFRD. 

TVM?  -  PASSED  TO  SOTRFS  AS  AN  OUTPUT  INDICATOR  AND  PASSED 
RACK  FRC!*  SETRES  AS  A"  EPPCR  INDICATOR. 

READING  IS  THE  0TT  Y  SUDRCnrlBE  TO  CALL  PROFRD  AND  IT  HAT  BE 
CALL'D  SEVERAL  TIRES  DURING  THE  INPUT  PHASE  OF  EXECUTION. 

THE  THRU?  DATA  TO  PROFRD  IS  PBOVIDED  BY  I5PT  DATA  CARDS  rROH 
the  n"’U  DECK. 

■’HEP'  ARE  TWO  EXIT  RETURNS  FROM  PROFRD,  LOCATED  AT  LINES 
V*’ MUFFED  77  AND  7B  IS  THE  SUBROUTINE  LISTING  IN  SECTION  5.  THE 
TETUPB  A'  LISE  77  IS  AS  ERROF  RETURN  WHILE  THE  CUE  AT  LINE  73  IS 
OSEP  UNDER  NORMAL  CONDITIONS. 

THE  Output  FROM  PROFRD  CONSIST  CF  IKFORHATION  STORED  IB  THE 
?IRCr?F'’  PERFORMANCE  PROFILE  TABTE  PROF  IB  LABELED  COMMON  BLOCK 
/URCFIL/. 

T'lE  PPOCESSING  PERFORMED  BY  PROFRD  IS  TO  BEAD  AND  STORE 
PERFORMANCE  PROFILES  FPD“  t;)F.  PUT  DATA.  THE  INPUT  DISTANCES  ARE 
C '"EVERTED  TO  FEET  FROM  NAUTICAL  MILES  IF  HECESSARRY.  EXTENSIVE 
ERR-P  CMFCKS  ARE  MADE  OB  THE  INPUT  DATA. 
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Subroutine  PROSET 


SPBRC 3TTBE  PR 'SOT  (S?,IT.AC,KK,  I.APP)  03-1E-79 


/•  ****************************************************************** 

C  SUBSTITUTES*  ?FrFIT  r  PAPAAETERS  IBTO  APPROACH  PROFILES 

IS  inpTCS.TED  V  •*E~.»rrfP  SOBERS  stops  is  ppcf 

P.ARAEETEPS  VI!’  :■?  PLACED  IHTO  PP0FI1  E  100 
*  ■'Cl’  YARIAR;  c  DTC7  TOLLS Y 
APPTHR  -  A/C  ?~WES  SETTirsS 

*SPROF  -  ASnS  ^B^FI-E  IEFO  -  TEIOCITY  AKD  THPOSTS 

I*P!»  -  APPROACH  ?AR  AT.ETE9  I.D.  JOPDISAH  03-29-7? 

it£c  -  nnsE  c,-rye  oitper  asstoke!)  to  correct  a/c 

TTIPF  -  'PPP-ACi!  PROFTIE  TOOE^P  ART  )  AIRCRAFT  TTPE{ 

*S  -  C’-E  GREATER  ?H*3  THF.  liUEBER  OF  PPCPIIE  SEGSE37S 
"ITCH  -  TAB! E  -F  I-fPS 
"SETS  -  ?"«9Er  *»F  SELECTS 
PP  -  PROFILE  ■>ESTSICTI'*ES  J.ASPRCFt 
PF?F  -  2/C  PEPFORr.AHCE  PROFILES 
STB  -  SI  AST  PARSE 

T^RL  -  TRACK  LE3GTH  I3CIUDISS  FOE KAY 
PROSET  -  SERROPTH? 

PRESET  IS  3S2D  B*  SUaPCaTlSE  PFCFOA  TO  IRITIALTZE  LAKDI3G 
■•RSFopTArCR  DA-A  YURY  "TSOICATUfis*  APE  USED  IS  THE  DEmiTICBS. 

PP^SET  Drss  -JOT  USS  A*Y  EtTEPBAI  SOBPOOTI3ES. 

PRO SET  R»S  OLE  E3TRT  POT  ST  A3D  THE  CILLISG  SE2RESC2  IS: 

CALL  PRCSE?  (SP.ITAC.KK.IAPPJ  33-13-7* 

SP  -  PROFILE  E*>"»2R. 

TTAC  -  RotSE  C0~7E  SET  T13BER  f SSIGBED  TO  THE  CIRREHT  AIRCRAFT. 

KK  -  THE  T-YUEr  CF  PROFILE  SEGEETTS  *1. 

PPCFDA  IS  THE  OBIT  SU9F0PTI3E  TC  CAIL  PRCSET. 

THE  irP"T  “r  PP05ET  IS  PP"YICED  BY  THE  CALJ  IS3  AE  JHHEBTS  ABO 
THE  TABLES  PR'F  ASf)  APPTHF  IR  TUB  LABELED  C0SSC3  BLPCX/PPCFII/. 

“FEPE  IS  OBE  ETI?  SETUPS  TECS  PFCSET,  LOCATED  AT  LI5E  SDSBER 
T"  THE  S3HE0',TT3£  7TSTIUI  IT  SECT TCH  5  ASD  IT  IS  OSEO  BHDE? 

AIL  CC3PITI0ES. 

THE  ,vt?"T  pr-w  pprSET  C^ISISTS  of  THE  COSTr-YTS  Of  THE  TELOCITY 
ATD  THRUST  VA’OES  TB  PERFOEH  ABCE  PROFILE  B3EBEP  107  13  THE  TA5IABIE 
PRO?  IS  HELL  .AS  THE  SAHE  TAL"E  FOR  THE  YAPIABLE  ASPROF  15  LABELED 
COHEOS  ’ll  OCE/PROFSI/. 

•HE  PROCESSIRG  P5RFC3"ED  RT  »ROSET  COHSITS  OF  PETRIS? ISG 
VARTABTES  FPCY  THE  ARRAY  APPTHR  AS  INDICATED  3T  THE  PPOFIIE 
rmE?  AEALYSIS  »SD  ST-RI3S  THOSE  YiBIABLES  APPROPRIATELY  ISTC 
R9PKT3  LCCAT10LS. 

SUBSTITUTES  PROFILE  PAPAHETERS  IKTO  APPRCACH  "’ROFTLES 
AS  ISDICATFD  BY  SF-3ATIYE  FIBERS  STORED  IE  PROF 
3 APAFETBPS  BILL  RE  PLACED  TBTO  PROFILE  ’O-o 
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Function  PWR4ME 


?•.•?!*?  i\xthY,hZ) 


c  **************************** •«****•***•*•*••****•*#*♦»•*****•***♦• 

r  ~HE  F”rcTTO"  =»'JC3“  ?ET*,P!»S  AS  ITS  ¥4135  T3E  CORRECT  QUOTE  APPROXIHATIOR 


r 


7H03CTE  T<“  .4  PE093CT  REQ3ISED  BT  41  (S££  REICH) 


Subroutine  READIN 

r."PRO,*?r,:E  peadis  ir.w 


••*•**••*•***•**•••*••*•**•••*••*••••«•**••**••***«•••••*•*••**•*♦ 


"  r-C V  ¥A?r.ASlE  0TCTTC*I4RT 

r  FAC  -  FI  AS  CIE.A8  RTSHAT  •rn.IEATIOS  TIBI  ES 

c  i  -  tacp  cccrrEF 

C  IC3T  -  *SSP  CCTSEHT 

-C3T  -  OF  ERRORS 

TCt-nE  -  OAT*  IEP1T  CPT-RCL  CODE  |SEE  BQ0H) 

innrp  -  error  fia. 

MO  -  At  TEST AT?  W'H'S  A  EDS  ESS  1=  CA1?  IBS  PROS R A3 
FSA3TI:  -  S"9nr*?ISS 

T*E  S3BR03TISE  SEADTS  C03TRTIS  THE  SEADIBS  OF  IBPDT  DATA  PIOB 
CAROS. 

PHA3I*!  CAMS  THE  F0M0HX53  SGFBOUTISES: 

AC“?3T  ASOCCE  ’■EF.RD  SSHRIX  RHTRO 

A’ “PRO  ASO'TW  3FSASS  30IS3D  "0*10 

APRTRO  ASO?”H  TIERS  ?CTrSi)  TS.4KRD 

ASOABC  -TFO'JJJ  THEETV  PPCFPO  VISPFD 

RE A DIE  HAS  03E  E*7?T  P3TE?  AID  THE  CA11ISG  SEQ3E0CE  IS: 

c*TT  headis  rras) 
v-lE”" 

5RK  -  S9S3ER  OF  RTHJTS  EEFISEO  AT  THIS  TIER.  ERROR  RET 313  IF 
V?H  *  0  AFTER  CAM  IS  CAIMBG  PROSSAJU 

THE  EAT*:  PROG»AE  S^ISEI  IS  THE  OBIT  PRnGRA3  TC  CA11  5EADTI. 

THE  IT?3*“  Tn  REAOIS  C03STS  EOTIPF.II  C-F  OITA  CCBTRCI  CAROS  READ 
ttf*  THE  TSPrT  DSC*'. 

THERE  APE  TOC  EXIT  RETDESS  PROS  READIS,  10CATE0  AT  1Z1ES  29  AID 
IK  IS  THE  S31P03TISE  ITSrlSS  IS  5ECTICR  5.  THE  RETBRI  AT  1IHE  2* 
IS  S0R3A7  RETDHR  BBIIE  THE  CRF  AT  JIBE  119  IS  USED  IF  ERRORS 
APE  F’JCOTOTEPED. 

THE  OUTPUT  FR03  READISO  CCSSIST  ORJT  OF  PRIRTEO  ERROR  HESSACES. 
THE  C*T?3T  FR03  PE.40IB  CONSISTS  ORIT  OF  PRIWTFD  ERROR  SESSAGES. 

EXTERBAI  SHETB 

Ct-IE  000  RETORK  TC  70IS2* 

CODE  *00-1  READ  RISHATS  .430  TRACKS 

CODE  100-0  READ  TRACKS  <“¥*!  fECST  FCITOB  F9EBAT  OITA) 
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100- '  READ  MIX  DATA 

101- U  PE*D  TRUCK  PBRCBNTAG ES  (THEK  BIX  DATA) 

■■oo-'  READ  BIV  DATA  -  FIXED  PROPORTION  FORMAT 

101  READ  PROFILES 

10'  FEAD  NOISE  CURVES 

112  READ  TRACK  ALTITUDE  RESTRICTIONS 

10"  READ  "OTSE  CURVE  MERGE  DATA  (BUST  FOLLOW  BIX  DATA) 

H"  PEAD  TRACK  GROUP  DATA  {BUST  PRECBED  BIX  DATA) 

10f  PEAD  WIND  DATA 

"O'  READ  NEW  AIRCRAFT  DEFINITIONS 

10°  READ  APPROACH  PARAMETERS 

101  PEAD  T0T FRANCES 

110  READ  ASDS  '  THRESHOLD. 

11 1  READ  ASDS  '  THRESHOLDS  AND  TIMES. 

1 1 2  PEAD  AIRCRAFT  NOISE  CONSTANTS  FCR  ASDS. 

1’3  READ  OPERATIONAL  CONSTANTS  FOR  ASDS. 


Subroutine  RWYRD 


S  tpR'MJTU'F  RWYRD  (I  Jr1  ,’’RW,FAC,  IDHMP) 

****************************  ** ************************************ 

•:CU  'VARIABLE  DI."’If”'AR Y 
i  -  FADT'S,  CURVED  SEGMENT 
* T  T  -  T(TGIS.At  Air>OFT  ATTITUDE  )  FPOK  APAI.t  { 

A MP  -  "’ABLE  OF  RUNWAY  NAMES  1  •  DEPARTURE,  ?  •  ARRIVAI 
'.PUT  -  A I RPC E"  ALTITUDE  ABC'E  BEAN  SEA  LEVEL 
APTEVP  -  AVER  AG  F  AMBIENT  AIRPCRT  TEMPERATURE  DEGREES  KELVIN 
DOF  -  A'r'AL  P'UrWAY  DATA  (NUMBER,  BRAKE  RELEASE,  END  ,ETC) 

CTNETA  -  CUM’1*  ATTVE  ‘’•"f’N  *_;;G»,e  <*ijST  PR  LESS  THAN  270  DEGREES) 
"MTU  -  T  PN3TH  op  SIPPTEST  STRAIGHT  SEG  OR  ONE  HAT  F  RADIUS  OF 
BIN  TUnN,  WHICHEVER  SMALLEST 
nHM  -  DUMMY  VARIABiE,  SILTY 
FAc  -  D-KMY  AP.G  *>VYRD  (HOT  USED,  PERIOD) 

T nu M °  -  DIAGNOSTIC  '"TPST  INDICATOR 
IT'  -  FF-RiR  REl'l'P" 

TSOI  -  HERE  AETHER  ERROR  RETURN  INDICATOR 
I'RTG  -  N"MBEP  ''Y  U"SIEST  R''NKAY 
INWY  -  P’lKWAY  NUMBER 

ITR  -  R"NWAY  NUMBER  ASSIGNED  TO  EACH  TRACK 
TTSEG  -  NUMBER  OF  SEGMENTS  IK  A  GIVEN  TRACK  IN  LOW  ?  BITS 
- 

1  -  SEGMENT  NUMBER  PASSED  IN  SUBPOPTINF  CALLS 

MASK  -  DECODING  C  INSTANTS  PCR  TTSEG 
MRW  -  RUNWAY  ERROR  FLAG  )  R"'JW.AY  =  OUT  OF  BOUNDS  -  DEPARTURE  ( 

M  >'P  -  RUNWAY  ERPOR  FLAG  )  RUNWAY  =  OUT  OF  BOUNDS  -  ARRIVAL  ( 

NA«F  -  t ABLE  OF  RURPAY  NAMES,  AS  AMR 
*'RV  -  N'MBEF  tp  DEFINED  RUNWAYS  (PFTUPNED) 

NrWY  -  RUNWAY  NUMBER 
Ns  —  "’’MBER  OF  SE'ME”mS 
-  TRACK  NUMBER 

ST W Y  -  RUNWAY  N’! VDEP  TOR  GIVEN  TRACK 
II v H  -  >’UUBBP  n7  RUNWAYS 
RAP  AM  *  TACK  SEGMENT  INFORMATICS  (SEE  HBT) 

PT  -  RUSWAY  i  F.WGTHS  (PELT) 
nM  -  A*  1  /' 

!»-S?  -  N"MBER  OF  RESTRICT  ED  OPERATIONS  ) DEPARTURES,  ARRIVALS ( 
pep  puvyjY  PER  DAY/FV^NIHG/  NIGHT 


1  o 


C  SI  -  SIGH  (SO  C.ATT£D)  OF  1'HRN  (RIGHT  OR  I. EFT  HAND) 

r  i-EMP  -  ORIGINAL  AIRPORT  TEMPERATURE  )  PROS  APTEMP  ( 

C  BOTH  ALT  AND  TE*P  ARE  AS  BEFORE  MODIFIED  BY  "'HIS  ROUTIHE 

C  THETA  -  "'URV  A"GTE,  CURVED  SEGMENT 

c  ttd  -  TRACK  DISTANCES  FROM  START  OF  RUNWAY  TO  END  OF -SUCCESSIVE  SEGMENTS 

C  cOR  ALL  EXCEPT  LAST  SEGMENT  (GUESS  WHY) 

C  UNIT  -  "NIT  .ECTOR,  DIRECTION  OF  RUNWAY 

C  VI  -  VECTCR  BRAKE  RELEASE  POINT  TO  RUNWAY  END  ) DEPARTURE ( 

C  V0  -  VFCTOR  3FAKE  RET  EASE  P"INT  TO  RUNWAY  END  )  ARRIVAL  ( 

C  XA  -  RUNWAY  START  COORDS 

C  XD  -  RUNWAY  END  COORDS 

r  rr.  -  DISTANCE  TO  BEGINNING  of  TRACK  SEGHENT 

C  XIONG  -  LENGTH  OF  q' AKEOFF  SEGHENT 

r  XR1  -  VECTOR,  ORIGIN  TO  P"NWAY  END 

C  RWYRD  -  S03R0l,TI”E 

C  SUBROUTINE  RWYRD  RFADS  t[(E  AIRPORT  ALTITUDE  AND  MEAN  AMBIENT 
0  "’PwpERATURE  AS  WELL  AS  RUNWAY  DEFINITIONS  FROM  THE  INPT  DATA. 

C  RWYRD  CAILS  THE  SUBROUTINES  TRADRD  (ALTERNATE  ENTRY  IN  RWYRD), 

C  SFTRES,  NFS. AGE,  NBETW,  TPROF ,  VSUB  AND  VMAG. 

0  PWYFD  HAS  TWO  ENTRY  POINTS,  RWYRD  AND  TRAKPD.  THE  CALLING 
SEQUENT F  PF^R  RWYRD  IS  AS  POV  OKS: 

C  A  LL  RW  Y  RD  (*  ,  NPG ,  FAC,  I  DUE.  P) 

C  ‘•'HEPR 

r  *  -  MEMORY  T  nC  A^ION  IK  CAI'ING  PROGRAM  POR  ERROR  RETURN. 

"  NRW  -  N'LMUCP  OF  DEFINED  R"NWAYS  (PETURNED) 

C  FAC  -  NOT  USED. 

0  rD-"ttP  -  DIAGNOSTIC  OUTPUT  INDICATICP  PASSED  TO  SUBROUTINES 

C  TFAKRD  Af,D  SETUPS. 

C  READIN  IS  THE  ONLY  SUBROUTINE  TO  CALL  RWYRD  AND  IT  WILL  NORMALLY 

0  ">NLY  BE  C»L0ED  ONCE  PER  RUN. 

C  THE  INPUT  TO  RWYRD  IS  SUPPLIED  ENTIRELY  FROM  DATA  CARDS  IN  THE 
0  TNPUT  RUN  DECK. 

0  THERE  ARE  NO  EXIT  RETURNS  FROM  RWYRD  AND  AIL  RETURNS  ARE  EXECUTED 
C  TU  TFAKRD. 

C  TRAKRD  IS  THE  NATURAL  CONTINUATION  WHEN  RWYRD  IS  COMPLETE  SINCEIT  IS 
C  ASS"VED  THAT  IF  »  RUNWAY  IS  DEFINED,  THEPE  ARE  TRACKS  TO  GO  WITH  IT 
C  -AND  THEY  CAN  BE  EFFICIENTLY  DEPINED  KCW. 

C  THE  OUTPUT  FROM  RWYRD  CONSISTS  OF  THE  NUMBER  OF  DEFINED  RUNWAYS, 

C  NFK.  OF  COURSE,  AS  WELT  »s  THE  INITI AT TZ ATION  OF  VARIABIES  IN  THE 
C  LABELED  COMMON  BLOCKS  /P.UFWAY/AND/PWTUTL/.  THE  VARIABLES  IN  THOSE 
C  B'OC'S  ARE  DESCRIBED  AS  FOI  t  ovs  ; 
o  row  MCN 


c 

B’-ocK  V  A 

RI.ABI  F 

description 

C 

/RUNWAY/ 

AP  AIT 

aippcpt 

ALTITUDE  ABOVE  MEAN 

SEA 

levle. 

C 

/RUNWAY/ 

APH" 

aipport 

ALTITUDE  AD^VE  MEAN 

SEA 

LEVLE. 

0 

APTEMP 

AVERAGE  AMBIENT  TEMPERATURE 

AT 

AIRPORT  (K) 

r 

n 

P"MWAY 

START  COORDINATES. 

0 

XD 

PUNWAY 

END  COORDINATES. 

r 

r: 

R-’NWAY 

I ENGTHS  (FEET) . 

C 

/PW YU"L/ 

AMR 

runway 

NAMES,  THREE  CHARACTERS 

EACH. 

C 

inrwy 

N"MBER 

op  DEFINED  RUNWAYS. 

0  RWYRD  PERFORMS  NO  F J Rm H E R  PROCESSING  AFTER  INITIALIZING  THE 

C  ADCVE  TABLES  3UT  PROCEEDS  IMMEDIATELY  TO  TRAKRD  TO  READ  GROUND 
C  TPACK  INFORMATION. 

C  TRAKPD  IS  AN  ALTERNATE  ENTRY  IK  RWYRD. 

C  TRAKRD  CAILS  THE  StJBROUTINFS  MESAGE,  NBETW,  DGTRD,  HELG,  V0NT  AND 

C  X’  INS. 

C  THE  CALLING  SEQUENCE  FOP.  TRAKRD  IS: 

C  CATT  TRAKRDf*,  ID”.NP) 

C  WHERE 

r.  *  -  MEMOPY  LOCATION  IN  CALLING  PROGRAM  FOR  ERROR  RETURN. 

C  ID"MP  -  DIAGNOSTIC  OUTPUT  INDICATOR  WHICH,  IF  NOT  EQHAI  TO  ZERO, 


r  CAUSES  THE  CONTESTS  OF  THE  VARIABLE  PARAH  IB  LABELED  COBBON  BLOCK 
C  /TRACK/TO  BE  OUTPUT  TO  THE  PRINTER  FOR  All.  DEFINED  GROUND  TRACKS. 

C  (SEE  SUBROUTINE  HUT  FOR  A  DISCUSSION  OF  PARAH.) 

C  TPAKRD  IS  CALLED  FFOH  READIN  AND,  BE  DEFAULT,  FRCB  RWYRD. 
r  THE  TNPTIT  FOR  TPAKRD  COHES  FROM  INPUT  DATA  CARDS,  THE  VARI ABIES 
C  RT ,  XA  AND  XD  IN  COBBON  BTOCK  /RUNWAY/  AND  THE  VARIABLE  BASK  IN 
C  LABELED  COBBON  BIOCK  /TRACK/. 

C  THERE  APE  TWO  EXIT  RETURNS  FROB  TRAKRD  (AND  RWYRD) 8  LOCATED  AT 
C  i INES  NUMBERED  163  AND  16*  IN  THE  SUBROUTINE  LISTING  IN  SECTION  5. 

C  THE  PETURN  AT  LINE  163  IS  AN  -ERROR  RETURN  WHILE  THE  ONE  AT  LINE  164 
r  TS  USED  IF  NO  ERRORS  ARE  ENCOUNTERED. 

C  THE  OUTPUT  FRCB  TRAKRD  CONSISTS  OF  INITIALIZED  VARIABLES  IN  THE 
C  LABELED  COBBON  BLOCK  /TRACK/  DEFINED  AS  FOLLOWS. 

C  VARIABLE  DESCRIPTION 

c  i*p  -  RUNWAY  NUBBER  ASSIGNED  TC  EACH  TRACK. 

C  ITS EG  -  (SEE  SUBROUTINE  HBT  FOR  DESCRIPTION.) 

C  PAPA"  -  (SEE  SUBROUTINE  HBT  FOR  DESCRIPTION.) 


C  ITTD  -  TCTAt  TRACK  DISTRAKCE,  RUNWAY  INCLUDED,  TO  THE  END 

C  CF  ALL  BUT  THE  LAST  S EG BENT  FOR  EACH  DEFINED  TRACK.  DISTANCE  IS  IN 
C  FEET. 

C  DBIN  -  FRO  EACH  TRACK,  THE  LENGTH  OF  THE  SHORTEST  STRAIGHT 

C  SEGBF.NT  OR  ONE-HALF  THE  BIN  I  BUB  TURN  RADIUS,  WHICHEVER  IS  SHALLEST. 

C  THE  PROCESSING  PERFORBED  BY  TRADKRD  CONSISTS  OF  THE  CONFUTATION  OP 
C  THE  VALUES  FOR  THE  INITIALIZED  VARIABLES,  EXCEPT  PARAH.  TRAKRD  HILL 
C  CAIT.  XI.INE  TO  PROCESS  STRAIGHT  SEGEHBHTS  AND  HELG  FOR  TURN  SEGMENTS 
C  AND  Tt  ESE  TWO  SUBROUTINES  PERFORM  THE  INITIALIZATION  IN  PARAH. 

C 

Subroutine  SETRES 


RUUU-'tTirE  SET" "S  IT’ BP) 


****************************  ************************************** 


0  LOC\«:  VARIABLE  DICTIONARY 

'•  APAIT  -  PRESS"nE  ATTITUDE  CORRECTION  FRCB  DEL’’’ A 

0  AX  -  PFOFIT.E  TABLE  5  OR  GENF1  INTFRPOI  AT  ION 

t  \\t  -  START  r?  RESTRICTION  ZONE  FOR  PARTICULAR  RUNWAY  ♦  PROFILE 
C  ax  -  PROFIMJ  TABLE  NOR  GENF1  INTEPPOI ATIO’l 

C  UELT  -  RATIO  CF  Pr VEH  SETTING  TC  THAT  REQUIRED  PCR  FINAL 

C  PRrrT*P  A*TTT’,UE 

C  E’*D  -  END  OF  °EST',IC PICN  ZONE 

c  rn:,r  -  attitude  jt  ffd  of  procedure  for  each  prof  and  restr  nubber 

C  ENDR  -  RESTRICTION  END 

C  GCOS  -  INPUT  TAKEOFF  GRADIENT  FOR  EACH  RESTRICTION  NUBBER. 

r  JCBT  -  Type  «f  AB'TEBENT  PROCEDURE  FOR  EACH  RESTRICTION  RUBBER. 

C  IC3NCO  -  PROCEDURE  OVERRIDE  CODES  FOR  EACH  NOISE  CURVE  SET. 

C  TDUBP  -  FLAG  T  Du’lP  VARIABLES  TC  1PT  IF  SETRES  FAILS 
C  TGO  -  ERROR  RETURN 

C  T I  -  TcuTAim  POSITION  IS  TABLE  CF  IAST  VALUE  NOT  GREATER  THAN  XX 

C  !"T  -  LOOP  CCT'TER  ) 3«"BSN  CF  VALUES  IF  AX,BX( 

0  »mi>  -  -OISE  *  BATEUENT  PROCEDURE  vhbbER  FOR  EACH  TRACK, 

o  PROFILE  AND  RESTRICTION  N^PER. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c. 

r 

c 

c 

r 

c 


\'P  -  NUMBER  OF  PROFILES  TOWHICH  RESTRICTIONS  APPI  Y 

up  -  runway  hinder  to  which  restrictions  apply 

VRT  -  RESTRICTION  TYPE 
OUGBNfl  -  INP"T  PROCEDURE  END  DEFINITION. 

ORGSTR  -  INPUT  PROCEDURE  START  DEFINITION. 

PROF  -  TABLE  OF  PROFILE  IHFOSHATION 
PVR  -  POKER  SETTING  TO  "MAINTAIN  SPECIFIED  GRADIENT 
STALT  -  ALTITUDE  AT  STAR*  OF  RESTRICTION 
STS*  -  DISTANCE  FRO*  THRESHOID  TO  START  OF  PROCEDURE  FOR  EACH 
PROFILE  A”D  RESTRICTION  K"MBEP. 

STPT  -  START  CP  RESTRICTION  ZONE 
7,  -  ALTITUDE  AT  WHICH  PHI  EXCEEDS  CLIMB  POWER 
SETPES  -  S”9Rr'’TINp 

SUBROUTINE  SETRES  INITIALIZES  APPROPRIATE  VARIABLES  WHEN  THE 
OPTION*!  TANF^FF  PROCEDURES  ARE  REOUESTED. 

THE  SUBROUTINE  SET°ES  CALLS  '"HE  SUBROUTINE  MESAGE  IP  AN  ERROR  IS 
PNCnNTERED  AND  GENFN1  TO  DO  ISTERPCLATIONS. 

THERE  IS  "NE  E”tov  IN  SETRES  AND  THE  CATLING  SEQUENCE  IS: 

CALL  SETPES  (NP,  NR,  IDUMP) 

WHEPp 

VP  PERFORMANCE  PROFILE  NUMBEP. 

HP  RESTRICTION  VM3ER  INDEFINITION  TABLES. 

TDT,M?  DIAGNOSTIC  OUTPUT  INDICATOR  WHICH  IF  NOT  EQUAL  TO  ZERO 
CAUSES  THE  RESULTS  TO  DR  PPINTED.  ON  PETRUN  INDICATES  ERROR  IF  =  -1 
SETRES  IS  CALLED  BY  THE  SUBROUTINES  ALTRRD,  PROFRD  AND  RWYRD. 

THE  INPUT  DATA  Fop  SETRES  IS  PROVIDED  BY  THE  CATTING  ARGUMENTS  AND 
THE  LABELED  COMMOt’  BLOCK  /RESALT/.  THE  FOLLOWING  IS  A  DESCRIPTION 
°F  THE  VARIABLES  IV  /RES AIT/. 

V.APIABT  E  DESCRIPTION 

VAR  -  NOISE  .ABATEMENT  PROCBDUPE  NUMBER  FOR  EACH  TRACK. 

ENDR*  -  DISTANCE  FROM  -"HRESHOLD  TO  END  OP  PROCEDURE  POR  EACH 
PROFTIE  AND  RESTRICTION  NUMBER. 

STP*  -  DISTANCE  FROM  THRESHOLD  TO  START  OF  PROCEDURE  FOR  EACH 
PROP!"  E  AND  RESTRICTION  NUMBER. 

ICBT  -  TYPE  OF  ABATEMENT  PROCEDURE  FOR  EACH  RESTRICTION  NUMBER. 
GCPN  -  INPUT  TAKEOFF  GRADIENT  FOR  EACH  RESTRICTION  NUMBER. 
T03KC0  -  PROCEDURE  OVERPIDE  CODES  FOR  EACH  NOISE  CURVE  SET. 

E**DAT T*  -  AT TITUDE  A1"  END  OF  PROCEDURE  FOR  EACH  PROFTIE  AND 

rEST"ic"ios:  number. 

ORGSTP  -  TNPUT  PR-'CEDURE  START  DEFINITION. 
npcF’-U  -  THPUT  PROCEDURE  END  DEFINITION. 

"THESE  VARIABLES  APE  INITIALIZED  BY  SEYRES. 

THrEE  AFF  SIX  ENIT  RETURNS  FPOM  SF.TRES,  LOCATED  AT  LINES  NUMBERED 
r,  11,  iu,  ??.  6 e  :.*n  70  IN  THF.  SUBROUTINE  LISTING  IN  SECTION  5. 

■"HE  PET”RN  AT  LINE  c  IS  USED  IF  THF.  PROFILE  NUMBER  IS  GREEATER  THAN 
P=.  THIS  TS  NO"  AN  ERPOR.  THF.  PETURK  AT  LINE  11  IS  USED  IF  THE 
ppori’E  It’S  NOT  BEEN  DEFINED.  THE  RETURN  AT  I  INK  1U  IS  USED  IP  NO 
?POCFD"PE  HAS  L’EE"  ASSIGNED  TO  THE  RESTRICTION  NIM3ER  NR.  THE 
RETURN  AT  LINE  ?E  IS  AN  F.RRCP  RETURN  AND  IS  USED  IF  THE  PERFORMANCE 
pPOPUF.  is  NOT  IN  STANDARD  FORM.  THF  RETURN  AT  TINE  6r  IS  THE 
"'■'PM A’  ° ETUVN  USED  »F"FR  PROCESSING  IS  COMPLETE.  THE  RETURN  AT  LINE 
'  0  IS  US pd  .AFT PR  ro»iPL?TiON  CF  PROCESSING  AND  PRINTING  DIAGNOSTIC 
■-'UT?,,T. 

THP  di:t?ut  FRrM  SETRES  TS  AS  INDICATED  PY  THE  ASTERISKS  IN  THE 
uPEVI''US  DTSC"SSTON  OF  THE  VARIABLES  IN  THE  I  .ABET.ED  COMMON  BLOCK 

/p es  a: t/. 


Function  SGNI  (I) 

+ 

This  function  returns  the  value  -  1  according  to  the  following: 


SGNI  -  1 
SGNI  3  -1 


for  I  >  0 
for  I  <  0 


AM 
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Function  SGNR 


Fierros  sgvp  (?) 

r 

C  ****************************************************************** 

C  S'?"*  -  FUNCTION  SOBS''*»TISE 

C  Srt>’B  PETURXS  THE  VALO 2  M.  ACCORDING  TO  THE  FOLLOWING: 

C  SG"P  =  X/ABS  (X)  FOR  X=0 
C  5GSP  =  FOR  X=0 

C  SGNP  DCFS  !!CT  USE  ANT  SUBROUTINES. 

C  THERE  IS  ONE  ENTRY  TO  SGNR  AND  THE  C.ALT  ING  SEQUENCE  -IS: 

C  SGSP  (R) 

C  HURnP 

C  R  -  ANY  REA?  N"MBER. 

C  SGNR  IS  CALLED  BY  THE  SUBROUTINES  NEWPNT  AND  CURVE. 

C  THE  INPUT  TO  SGNR  IS  THE  CALLING  ARGUMENT. 

C  THERE  IS  ONE  EXIT  RETIRE  FROM  SGNR  AND  IS  ALWAYS  USED. 

C  THE  OUTPUT  FROM  SGNR  IS  ♦  1  OR  -  1  AS  PREVIOUSLY  DESCRIBED. 


Subroutine  SIFT 

SUBROUTINE  SIFT  JTABN»NF,NSF #TN,SN,TOLL) 

C 

q  ****************************************************************** 

C  IOCAI  VARIABLE  DICTIONARY 

C  ITNAC  -  A  TABLE  CONTAINING  OP  TC  2000  DISTINCT  FLIGHT  IDENTIF 

C  CATION  CODES  (SEE  HIXRD) 

C  IVX  -  D^NMY  ONTT  NUMBER 

C  J  -  COUNTER 

C  MSKi  -  ENCODING  BASK  F^R  ITPFAC 

C  HSK2  -  ENCODING  N»SK  FOR  ITPRAC 

C  NF'  TOTA’  =  OF  FTIGHTS 

C  HOPS  -  TOTAL  OPERATIONS  BY  ETC 

C  NSF*  =  OF  SIGNIFICANT  FLIGHTS 
C  STGM  -  SIGNIFICANCE  MEASURE  } 10**2. 5 (/TOI 

C  SN»  NOISE  FROM  SIGNIFICANT  FLIGHTS  ONLY 

r  SON  -  TOTAL  NOISE  FUCH  _S IGN IPICANT_  FLIGHTS  )63G  VALOE( 

C  TABN  CONTAINS  NOISE  DATA 

C  TIM  TOTAL  NOISE 

c  -  TOJNRAVCE  APPIIRD  T0  EXPOSURE  SOB  TO  DETERMINE 

C  .SIGNIFICANT  FTTGHTS 

C  TOT  -  TOTAL  SIGNIFICANT  NOISE 

C  XT  IN  -  TOT  FRANCE  AUP* IED  TU  EACH  ENTRY  IN  TABN 
C  SIFT  -  SUBROUTINE 

C  STFT  DETERMINES  WHICH  riGHTS  ARE  TO  BE  OSED  WHEN  SEARCHING  FOB 
C  THE  NEXT  POINT  ON  THE  CONTOUR.  THE  NOISE  FROM  FLIGHT  OPERATIONS  IS 
C  SUMMED  IN  ORDER  OF  SIGNIFICANCE  ’’UTIL  THE  SOM  IS  WITHIN  A  TOLERANCE 
C  rp  T*»r  <rc*AT  FOP  ALL  FT  TGHTS  AND  ONI  Y  THE  FLIGHTS  WHOSE  NOISE  VALUES 
C  VBPE  INCLUDED  IK  THE  SUN  (I. E. ,  THE  MOST  SIGNIFICANT  FLIGHTS)  ARE 
C  "SED. 

C  THE  S'lBR 'TPTINF  STFT  DOES  NOT  "SE  EXTERNAL  SUBROUTINES. 

C  SIFT  HAS  ONE  E"TPY  "CIHT  AND  THE  CALLING  SEQUENCE  IS  : 

C  CAT T  SIFT  (T.ABN,NP,RSF»TN*SN, TOI) 

C  WHEPE 

C  TABN  -  TABLE  OF  NOISE  VALUES  WHI.'H  WERE  COMPUTED  FOR  EACH  DEFINED 
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C  P»  13 HT  THE  T  AST  TIME  "HE  NOTSF.  AT  A  POINT  WAS  CO.MP”TED. 

C  KP  -  TOTAL  N"K3ER  of  DEFINED  FLIGHTS. 

C  «SF  -  N".MBER  ft?  SIGNIFICANT  FT  IGHTS  (RETURNED) . 

C.  T”  -  SUMMATION  OF  N^TSE  VALUES  INCI UDING  THE  CONTRIBUTIONS 

C  FROM  \tt  nEFINED  F*  IGHTS  (T. E.,  SUMMATION  CF  VALUES  IN  TABLE  TABN)  . 

C  SN  -  SUMMATTCS  or  "OISE  VA’"ES  FROM  SIGNIFICANT  FT  IGHTS 

C  (PET*1,PNSD)  " 

r  TCT  -  ALL  OVA  BT  E  ?CT  ERANCF.  IS  CONTOUR  1EVFT . 

C  EXPOSE  IS  THF  ONLY  S',3R0,,T  INE  "C  CALL  SIFT  AND  IT  WILL  DO  SO  HA  NY 

C  TTMFS  DURING  EXECUTION. 

C  TNF  IMPS"  DATA  T"  SIFT  TS  pnf'VIDED  THROUGH  THE  CALLING  ARGUMENTS. 

C  THERE  S’E  "VC  EXIT  RE"UPNS  FRO".  SIFT,  LOCATED  AT  LINES  NUMBERED 

c  'i  v.n  m  iv  "irr  s'-inr'ciNE  ltstikg  in  section  c.  the  return  at 

C  ’INF  IS  USED  A"TEP  THE  PROCESSING  FOR  SIGNIFICANT  FT  IGHTS  HAS 
C  UFEN  CCMP12TED.  TNE  ’’E"1’;*"  at  tth*  a)  is  nsED  WHEN  THE  NUMBER 
C  *F  DFriNED  FLIT"TS  TS  vO  "P  LESS,  IN  WHICH  CASE  UL  FLIGHTS  WILL  BE 
C  "SED  AT T  THF  time. 

C  THE  OUTPUT  OF  SIFT  CONSISTS  OF  THE  MODIFICATION  "F  THE  TABLE 
"  IT  PR  *  C  TN  LAUE7ED  COMMON  TIT  "'CK/TPAFIK/  (SEF.  SUBROUTINE  RIXRD  FOR 
C  DESCRIPTION  CF  THE  CONTENTS  CF  ITPRAC) .  S PECIFICA1 J  Y,  FOB  EACH 
r  SIGNIFICANT  FLIGHT  DEPIVED  IN  ITPRAC,  THE  MOST  SIGNIFICANT  BINARY 
C  "IT  IN  THF  DEFINITION  WORD  WIT  I  BE  A  1  AND  FOR  THE  INSIGNIFICANT 
r.  FT  IGHTS  i"  WITT  BE  A  D. 

C  ALL  ADDITIONAL  0"T»TT  Is  PASSED  THROUGH  THE  CALLING  ARGUMENTS  AS 
C  PPP.VtOVSIY  DEFINED. 

C  "t!H  PROCESSING  PERFORMED  BY  SIFT  CONSISTS  CF  DETERMINING  WHICH 
0  F’  TGHTS  "F  THE  T'v''.\:  CPE  AT  F.  A  SIGNIFICANT  ENOUGH  CONTRIBUTION  TO 
C  THE  dvepalj  NOISE  EXPOSURE  AND  SHOOI D  BE  INCLUDED  IN  THE  SEARCH  FOR 

C  the  NEXT  POINT.  SINCE  THE  COMPUTATION  OF  NOISE  FROM  ANY  FLIGUT, 

C  SIGNIFICANT  NO",  TAKES  THE  SAME  AMOUNT  CF  TIME  AND  EFFORT,  TUB 
C  ELIMINATT''N  C?  AS  MANY  PLIGHTS  AS  POSSIBLE  PROM  THE  COMPUTATIONS 


C  VTtt  SIGNIFICANTLY  HEiV'CE  "HE  PUN  TIKE  Of  THE  PPCGRAM. 


C 

C 

C 

r 

C 

C 

C 

C 

r 

r 

r 

C 

r 


THr  "OISE  UAT>  nj  the  FT  IGH"  CCNTPIBl'TPTONS  AND  SUMMATIONS 
IS  CnMPNTED  AMD  ST"RFD  I*!  ANTI’  CG  FORM  AND  CONVERTED  TO  DECIBELS 
ONLY  PUBS  NECESSARY  TO  LIMIT  CAL'.  S  TC  MATHEMATICAL  FUNCTION  ALD310 
-."0  RAISING  10  T o  '  "EAL  POWER.  THIS  AISO  SAVES  "IME. 

A  F’IGH?  IS  DETE"MTVED  SIGNIFICANT  IF  THE  FOI*PWING  CONDITION 
""IDS: 

TABN  (I)  .GE.TOT/SIG1: 

WHERE 

"ASF (I)  IS  THE  NOISE  CONTRIB""ICU  CF  FLIGHT  I  IN  ANTILOG  FORM 
T-vr  =  *0**  ( (T»’-TDA  )  /  IQ) 

SIG*  •=  10**(2.L-’CG  (TUT)) 

"•:=  S"RR.ATICN  CP  NOISE  FRCR  AIL  FLIGHTS  (DECIBELS). 

?'■’  =  ALI OPAB:  E  CONTOUR  *  EVF.T.  ERROR  TOLERANCE  (DECIBELS) n 
IF  THE  SUM  OF  AIT  SIGNIFICANT  FLIGHTS'*  N"ISE  CONTRIBUTIONS  IS  LESS 
THAN  T"T , 

THEN  STGN  TS  VJITIF’IED  BY  ,.0  AND  THE  PROCESS  IS  REPEATED. 
PEPETITIC'*  Cr'.lTI!!rES  UNTII  THE  ABOVE  IS  NOT  TRUE. 

IF  ANY  REPETITION (S)  IS  NECESSARY,  THE  CHARACTERS  SFTXX  WILL  BE 
PRINTED  CV  THE  CON" CUR  OUTPUT  AT  THE  FAR  RIGHT  SIDE,  WHERE  XX  IS  THE 
NUMBER  op  REPETITIONS. 
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Subroutine  SKFIL 


SUBROUTINE  SKFIT (in, H, 1ST AT) 

C  SKIPEP-SUBPOBTr’E 

C  THE  SUBROUTINE  SKTPER  IS  USED  TC  SKIP  FILES  (ENTRI  SKFIL)  OR 
C  RECORDS  (ENTRY  SKPEC)  OS  HAGNETIC  TAPE. 

C  SKTPER  HAS  "HO  EHTRT  POTHTS  AT  SKFIL  AND  SKREC.  THE  CALLIKG 
SEQUENCE  FOR  SKFIT  IS: 

CALL  SKFIL  (LU, N.LSTA?) 

«HE°E 

in  FORTRAN  IOGICAT  OBIT  Sn!lBER 
S  KUNBEP  CP  FILES  TO  BE  SKIPPED 
♦  N  =  SKIP  FORWARD, 

-U  =  SKIP  3ACKVAPD, 

'  0  =  SKIP  TO  BEGINNING  OP  CURRENT  FIIE. 

LSTAT  STA**JS  OF  COMPLETED  CPERATIOR 
0  =  NORHAT  COMPLETION 
1  =  BAD  OR  IKAPRRCPBIATE  UNIT 
0  =  NOT  USED 
3  =  UNRECOVERABLE  ERROR 

SKFIT  IS  CATTED  BY  THE  SUBROUTINES  POSIT  ASD  PPRRB. 

THE  INPUT  TO  SKFIL  IF  THROUGH  THE  CALLING  ARGUMENTS. 

THE  OPTpr«r  PBf'a  SKFII  IS,  LIKEWISE,  PASSED  THROUGH  THE  CALLING 
ARGO KENTS. 

THE  SECOND  ESTPT  SKRFC  HAS  THE  CAIIING  SEQUENCE: 

CALL  SKREC  (1U.N.ISTAT) 

WHERE 

LB  Fortran  T.ORTCAT  UNIT  NUMBER 
E  NUHBEP  OF  PHSTCAL  RECORDS  TO  SKIP 
♦N  =  SKIP  FORWARD 
-It  =  SKIP  BACKWARD 
0  =  NO  OPERATION 

1ST AT  STATnS  OF  COMPLETED  OPERATION 
0  =  NORMAL  CCHPI ETICN 
1  =  3AD  CR  INAPPROPRIATE  UNIT 
?  =  END  -OF  -FILE  OR  LOAD  POINT  PASSED 
3  =  UNRECOVERABLE  ERPOR 

SKREC  IS  HOT  USED  BT  THE  CONTOUR  ANAITSIS  NODE!  BBT  IS  OSED  BT  THE 
CONTOUR  ptOTTING  PACKAGE. 


Subroutine  SKREC  (IU,  N,  ISTAT) 


Subroutine  SKREC  foward/backward  skips  logical  records 


Subroutine  SKFIL  for  a  complete  description 


Subroutine  SORTI  (AIRCRFT ,  N) 


Subroutine  SORTI  is  a  general  purpose  subroutine  used  to  sort  one 
dimensional  ARRAYS.  This  subroutine  examines  the  input  ARRAY, 
AIRCRFT,  removes  zero  and  duplicate  entries,  and  sorts  the  table 
in  ascending  order.  Input  variable,  N,  is  the  number  of  entries 
in  ARRAY  AIRCRFT.  This  subroutine  is  used  primarily  bu  subroutine 
LOAD. 

Subroutine  S0RT2 

S (TT,Z,Y,TK> 
r 

t*****************^* ********  ************************************** 


S^nTS  TT  TS  .ASCENDING  ORDER 
SORTS  ?  AND  v  ACCORDING  IT 
""TCY  S°HT"  DOES  GOT  BATHES  T  SORT  Y 
T *  -  riXSE’  OF  0LE'1EN"‘.O  1*1  .ARRAYS 

r„  -  '  ,'gtc?*  f*  ,ag  gs  f*lse) 

(V  -  TTvppijpv  FOB  VATttES  '•PVF.n 


Subroutine  S0RT4 

.Tr*B|Jf>*,"TrE  S^P?':  (IT, A,  B , C,D ,IK, E) 

r  **» *•*********************•***•******#***********•*******«.•*•*•*** 

r  TK  -  7 FNGTH  ?F  AR°\YS 

C  f",  A ,B, C, 1  -  APBTTP.APY  ARRAYS 

r  PONTINE  SCPTS  ""lEZ  17!  ASCEHDING  ORDER 

r  ACCEDING  TO  IT 

_  EX"PA  AP';,,!'\!!T  (EOT  USED!) 
c;-rT<-  _  S',3R'",TI’!S 

r  s-pre  ts  A  P’YEPICA:  SORTING  R0RTI*,E  THAT  ARRANGES  THE  VALUES  IN  A 
^  r-TV”"  TABLE  TV  DESCENDING  TRDEP.  CORRESPONDING  VALUES  IS  POUR 
'•  »RS"CTATFf)  TART  *S  ARE  REAPRA'iGED  I”  THE  SANF  FASHION  AS  THE  GIVEN 
r  t*BtE  WITHOUT  REGARD  Tn  THEIP  O'JAFTITATIVE  CPDER.  THIS  ROUTINE  IS 
C  "SED  T-1  ASSEMBLE  THE  PLIGHT  IDENTIFICATION  TABLE  AND  THE  ASSOCIATED 
r  t»oijp»Ai  p»;t  f'PEPATTr'*!G  FOR  KEF,  I  ON,  CNET ,  AND  LFQ  INTO  LOGICAL 
r  CPOEP.  rCTE  THAT  THE  APER*TION3  FOR  ASDS  AND  DOSE  ARE  THE  DANE  AS 
"  pep  *^o. 


n  ,-j 


r  Srttjxi'  DOES  WC-  USE  ANY  EXTERNAL  SHBROUTINES. 
r  SOp-1-  NAS  CELT  OKE  ENTRY  PC- 131*  AND  THE  CALLING  SEQUENCE  IS 
c  c*T*  r**«*Tf  (i-,A#n,o,n,iK,N) 

C  ^Hpur 

r  T-  -  TH?  -ABLE  -0  BE  SORTED 

C  *  ,  B  ,  C ,  D  -  -HR  FOUR  TABI  RS  TC  SOFT  THF  SANE  SAT  AS  IT 
r  T(C  -  K-NE-R  *“ F  VAISES  T"  T«S  ''•ABIES 

-  *  -  IDT  -RESENT?  r  USED  BY  SOFT'S 

-  S-PT"  IS  CALLED  9Y  THE  S-BPOUTI-ES  RIXRD,  HERGRD,  AKD  NEBKIX. 
r  -HE  Tr?*"r  DATA  F-'F  SCOTS  is  PROVIDED  BY  THE  CALLING  AR3UHENTS. 

c  7tiE«r  *>{2  T<jr>  EXIT  "ETURNS  FPO.N  SOPT*,  I OCATED  AT  1.1*1  RS  NUNBERED  « 

C  :”0  ?.f  ir  -HR  SUB*r-TINS  LISTING  is  SECTION  5.  THE  RETURN  AT  LINE  « 

-  TS  *»SEft  T-  THE  PR  A*?  LESS  TH.AM  THREE  VALUES  IK  THE  TABLES  AND  THE 
C  pfTJ,P*'  »-  ’IN-  ~c.  is  7SR!)  OTHER  VISE. 

-  -'IE  ''OT?n-  CF  SOFTS  TS  THROUGH  -HE  CALLING  VARIABLES.  .  THE  TABLE  IT 

-  VIJ’  BE  SORTED  SC  -HAT  THE  VAIUES  ARE  IN  DESCENDIN'*  ORDER.  THE 

C  —  B'ES  A.B.C.O  ?I»*  BE  SORTED  I"  THP.  SAKE  ORDER  AS  TABLE  IT  BITHOOT 
r  i'EGABD  TT  B-RERT*. ''-DBR. 
r 


Subroutine  STRAIT 


S"BRC?*-TFE  STPAIT  (IG^RO  0,  X,  IE) 

****************************************************************** 

rrrpHTRs  distakce  me*  a  point  jbc  to  a 

TR5-  tF  NAXSEG  IS  KSOVB 

P)1(.P)?(  ARE  C^O-DIUATES  OF  THE  SEGHEWT  S-APT 
C  PA ’ C  IS  THE  S EG RENT  * ENG-H 

C  n)H{.Pl5{  IS  A  HKIT  VEC-CR  ALONG  THE  SEGHEBT 
C*  n  -  VECTOR  NASNT?nDE 

0  S  -  DIPFES2KCS  7EC"OR  BETWEEN  PO  AND  SEG  NEKT  START  POINT 

C  t  -  PB^JECTIor  or  DIPFEBRBCR  VECTOR  ONTO  TRACK  SESSENT 

C  »0  -  COOPDIBA-ES  OF  POINT  IN  QUESTION 

C  IGO  -  EFR-R  RETURN 

r  STPAIT  -  SUPNCUTTN2 

C  S^BP-HTINt:  STRAIT  C—pniES  TBE  DISTANCE  PROH  A  GIVEN  POIBT  TO  A 
C  STRAIGHT  LTEE  SEGEEBT  OF  A  -PACK. 

C  STRAIT  CA1TS  THE  S',BP''"TI,»RS  VADD,  VSCL,  VDOT,  V.NAG,  AND  VSOB. 

C  STRAIT  HAS  ONE  EOT0!  POINT  AND  -HE  CAtTIHG  SEQUENCE  IS 
C  -All  STPAIT (*,RO,U,D,Y,IE) 

C  VJ!*Ri> 

C  *  -  NEHORY  TCCA-ICU  IN  -HE  CALLING  PRCGRAN  FOR  RETURN  WHEN  POINT  IS 
C  *TT  T'J  THE  RANGE  OF  TH-  LIKE  SSGHENT. 

C  Pn  -  THE  COOPDINA--S  OF  THF  P^THT  IN  QUESTION 

CR-  VART ABLE  OF  DINEKSION  -  OR  NORE  WHICH  CONTAINS  THE  F0LL0BIN3  THE 
C  FIRST  FIVE  POSITIONS 
C  p (1)  -=T-COORDINATE  OF  SESHENT  START 
C  P  (21  *Y-CCOPDIHATE  **F  SEGSNNT  START 
C  9  (?) =SEGNENT  *  RNGTH  (FEET) 

C  R (HI  =X-CCEPCK2KT  OF  OBIT  VECTOR  ALONG  SEGHENT 
C  p (-) =t-CCHPOBENT  OF  ^NIT  VSC-OR  ALONG  SEGHEBT 
CD-  DISTANCE  TC  SEGNNT-  (RETURNED) 

c  x  -  msrANc  along  segnent  (returned) 

c  TF  -  INDICATOR  WHICH  IF  NOT  EQUAL  TO  ZERO  NEASS  THAT  IT  IS  KSOBB 
C  -HAT  -HF  P-IN?  IS  IN  THE  SEGHEN-  BAFGE 
C  HBT  TS  THE  ONLY  SnBROUTIrE  TO  CALL  STRAIT. 


C  THE  T'JPTT  TO  STRAIT  IS  PROVIDED  BT  THE  CAIIING  ARGUMENTS. 

C  THERE  ARE  THO  EXIT  FETn?«S  FROM  STPAIT  AT  LIHK3  NUMBEaED  11  ANDJ16 
C  TN  Ttl®’  S”URCOTIKE  TISTING  IK  SECTION  5.  THE  RETOPN  AT  LIKE  11  IS  AS 
C  *.T  TEPFATE  RETTPK  PS ED  WHEN  THE  POYHT  RO  IS  OUTSIDE  TF/E  RANGE  OP  THE 
C  LINE  SEGMENT.  THE  RETURN  A.T  Tins  1<=  is  USED  WHEN  THE  POINT  IS 
C  vrr!Ilr  THE  RANGE  OF  THE  LINE  SEGMENT. 

C  THE  "’lrpn?  ’’ROM  STRAIT  IS  THROUGH  THE  C AILING  ARGUMENTS  AS 
7  PREVIOUSLY  DEFINED. 

Subroutine  SWITCH 


SWU-IHE  S»T"CH  (A, 31 

ft***-************************ ************************************** 

THIS  p'*»^i«E  EXCHANGES  ’’'HE  V»I BFS  OF  THO  VARIABLES 
BY  A  SIMPIE  CIRCULAR  SUBSTITUTION 


Subroutine  TIHISI 

3"H»»«*rrirE  TIUTST (IG‘,3IST1,  DTST2 ,SCMENO) 

******************************************************************** 

T  "CCV  V  API  A3*  E  !)TCmtTARV 

r  \  -  CP  PEN"”  Y  SE’  EC”  ED  EXPOSURE  THRESHOLD 

C  SOL  -  ABS'*LnTE  V\T"E  OF  THE  LAST  tJCISE  LEVEL  DIFFERENCE 

r  AOT  -  ARS-OTUTE  V.V’E  OF  CT 

f'  ALA  -  A  LEVEL  EXPOSHRE  FOR  PREVIOUS  TIME  STEP  (ALCHSO) 

0  V  B  -  A  7  EVE*  ’’XPCSIPH  FOR  CURRENT  TIME  STEP  (ALOBS) 

C  '•’’B  -  D’MIY  VAR  FOR  I«TEHNA!  Fl”’C?IO:  DECORATION  (TINE  42) 

p  ALPBS  -  "LADLE  «F  A  LEVEL  (EXPOSURES  AT  NTH)  OBSERVERS  (MOMENTARY) 

C  f.LnBSI  -  KEEPS  T°ACX  CF  HNCCRRECTED  VAIHE  OF  ALCBS  FOR  CURRENT 

C  TINE  STEP 

C  AV'nSr'  -  A  LOBS  T  OF  PREVIOUS  TI«E  STEP  (C  FOR  OLD) 

r  VTH-  »?RAY  •'F  ■»?  vo  20  "'HPESHQ’  D  LEVELS  IN  DD  FCR  WHICH 
C  EXCEEDENCE  TTME3  VI**  HE  CAT CPT AT ED 

0  A  LX  -  DOS*!  VAR  FOR  IK- CRN A I  FUNCTION  DECLARATION  (LINE  42) 

C  AT X  -  DU"NY  VAR  FOE  IK'-ERBAI  FUNCTION  DECLARATION  (LIKE  42) 

C  ASDST-  ARRAY  F’'R  HP  T*'  00  THRESHCLD  LEVFT.S  AND  UP  TO  00  OBSERVERS 
C  CCN-"AININ.'.  THE  THRESHPLD  LEVEL  EXCEEDENCE  TIMES  FOR  EACH  OBSERVER 

r  TK  SECONDS 

C  AVD-  MAGNITUDE  ->f  VECTOP  V  COM PM TED  BY  AJ 

C  AVDMIE  -  SMALLEST  AVD  (VECTOR  MAGNITUDE)  YET  ENCOUNTERED 

C  B-  ACCET.EP ATTDi:  THROUGH  "’HE  CUP. RENT  SEGMENT 

p  B.’CKGR-  BACKGROUND  N" ISE  ’  £VET  IK  FNERGY  EOUIVAT  ENT  UNITS 
C  TO  WHERE  AIRCRAFT  •’■RACKING  IS  TO  START 

C  CRT  -  TtME  STEP  70!  ERANCE  (DCVTSSC**2  OR  DCL/2,  WHICHEVER  IS  LARGER) 

C  CHDT  -  CDT/10,  A  TEHTU  OF  COT 

C  CHDT2  -  CnDT/^S SC,  IE  DCI/I 0*TSSC**3  OR  DCL/20*TSSC 

C  D-  DISTANCE  AJONG  THE  GROUND  TRACK,  FROM  THE  BEGINNING, 

C  DATPK-  DISTANCE  IN  FEET  CF  COSEST  APPROACH  TC  THE  FIRST  OBSERVF.R 

p  MEASURED  ALONG  "’HE  GROUND  TRACK  STARTING  AT  THE  THRESHCLD  OF  THE  RUEWAY 

p  WHICH  WCO’D  BE  ”sep  ip  it  WERE  A  TAKEOFF  TKACK.  NEGATIVE  DAT5K 

C  INDICATES  THE  POINT  up  CICSFST  APPROACH  TO  THE  FIRST  "'BSERVER  IS  THE  START 
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POINT  OF  Tits  ‘"PACK. 

nnsAX*  -  *OKEST  THRESHOLD  LEVEL  CINE  45c) 

dcl-  ->seo  i*:  determining  the  next  time  increment,  based  on  the 
current  'ri,tE  increment  and  the  change  is  noise  level  over  the 

TAST  STEP.  DT*DT*DCVADT 

DFTH-  PTFFSRENCS  BETWEEN  INITIAL  THPUST  (FTH)  AND  THE  THRUST  OF 
PRECEDING  SEGME”T  (FLITEP  (•'*,  KSES-1) )  . 

DFTHMX-  MAXIMUM  A™  DVAB’ E  THPUST  CHARGE  CVER  THE  NEXT  TINE  STEP. 

DT«T-  I"TTI  \T  TIME  INCREMENT  IN  SECONDS.  DHINT.T E. DINT.LE. DHAXT 
DIST1-  DISTANCES  T*:  FEE’’'  FROM  RUNWAY  THRESHOLD  ALONG  GROUND  TRACK 
INDICATING  PROM  WHEPF  *0  VHERE  THE  AIRCRAFT  BAS  TRACKED 
DIST1I  -  DIST1  OF  PRSVICUS  SEGMENT 
0IST2-  DISTANCES  IN  FEET  FROM  RUNWAY  THRESHOLD  AT ONG  GROUND  TRACK 
INDICATING  FP^M  WHERE  TO  WHERE  THE  AIRCRAFT  WAS  TRACKED. 

RTST71  -  DIST?  OF  PREVIOUS  SEGMENT 
DT-  I  AST  M'lISE  *F"S!  DIFFERENCE  (PREVIOUS  TIHE  STEP) 

DIO  -  NOISE  LEVEL  DIFFERENCE  TWO  STEPS  PREVIOUS  (STEP  BEFORE  DL) 

DMAXT-  THE  LARGEST  ALLOWABLE  TIHE  STEP  SIZE  IN  SECONDS 
DMTNT-  THE  SM»!LEST  U’OWABIE  TIHE  STEP  SIZE  IS  SECONDS 
DT-  THE  NEXT  TIHE  INCREMENT 
DTI  C-  T  AST  CAI CULATEO  !>? 

T’R-  TIHE  NECESSARY  TO  FLY  ■''HRCCGH  THE  CUPRENT  SEGMENT 
nv-  ni’MMY  FOR  OVRLAY(W)  ANOPOSCOO  (V)  HORIZONTAL  DISTANCE  ALONG 
CPPEliT  SEGMENT.  IN  FEET,  FROM  THE  BEGINNING  OF  THE  SEGHENT  TO  THE 
ANALYSIS  POSITION 

nviST-  MAXIMUM  AT  I  OK A BT  E  ANGTE  CHANGE  (DECK  AND  BASKING) 

E*’ERGY-  CONTAINS  ACCUMULATED  ENERGY  NOISE!  EVELS  FOR  EACH  OBSERVER 
orq  THIS  ONE  FLYBY,  AF^ER  THE  TIHISI  CALL, 
o’.  ITEP-  CONTAINS  rSF  SEGMENTED  SPECIFICATION  OF  THE  FLIGHT  PATH. 

FP-  TH"DST 

FSIUKK-  CCNVE°StCN  PAC^OR,  KNOTS  TO  FEET  PER  SECOND 
FTH-  DUMMY  F"«  \I.  (F) .THRUST  SETTING  OF  THE  AIRCRAFT 
"VHCLR  -  ’'ID  FTH.  PPEVIOhs  TIME  STEP 
I-  I*’DEX  VARIABLE 

Tgr>-  *ppcp  BRANCH  TN  CASE  OF  A  RFTnRHI  FROM  TIHISI 
iso--  rFMoPY  t^oATTO"  IN  CATLING  PROGRAM  FOP  ERROR  RETURN 
1-  ATPCRAFT  r,v"ER 

,ir-  tihe  DIRECTION  IN  RET  ATI CE  TO  PCA  SEGMENT 

JP-  AIRCRAFT  NUMBER 

K-  STEP  COUNTER  FOR  CURT  ENT  SEGMENT 

KK-  NUMBER  CF  POINTS  IN  THE  TIMS  HTSTCRY 

ESEG-  TNF  N"«BFP  up  thr  SEGME"T  BEING  ANALYZED  IN  THE  FLIGHT  PATH 
DcPIwTTION 

XSUP  -  COUNTS  NUMBER  CF  TIME  STEPS 
XTPAF-  GROUND  TRACK  T«MBER 

I-  IMP! ICTT  LOGICAL-  ALL  VARIABLES  BEGINNING  WITH  L  CONTAIN  L-.  GICAL 
ASSIGNMENTS 
M  -  TS  ALA  GT  A 
*:  -  TS  A*  n  GT  A 

LA  -  AT  LEAST  orr  OBSERVE?  KCISE  LEVEL  ABOVE  LOWEST  THRESHOLD 
t'c«ifcK  -  HAVE  ■’'IHIST  CHECK  APGS  IN  CATTING  SEQ  AND  ASDSBL 
TDET*  -  PPCVIDE  DERAILED  DIAGNOSTIC  ‘■'tjTptjT 
’DMINT  -  IS  *.DT  ’ESS  THAN  OP  EOUAT-  DMTNT 
LFSPGY  -  CATO"’ ATE  ACCUR"LATF.D  ENERGY  NOISE  LEVELS 
TH\TF  -  ".AS  DT  EFEN  HA!  VED  Iw  THE  PRFCEEDING  TIME  STEP 

’ I N T T  -  A"*  PE  AT  THE  FIRST  PCINT  IN  A  SEGHENT  CF  THE  FLIGHTPATH 

tjfi  _  Dr  ’4T  NEED  SEGM.AKTS  FCLLCWIN5  THE  POINT  OF  CLOSEST  APPROACH  SEGMEN 
’JFZ  -  MUST  VS  TRUNKS  OUPSPVES  WITH  SEGMENTS  PPECEEDING  THE  PCA  SEG 
T*r.ttn  -  arr  --r  FINISHED  (FOR  NOW)  WITH  THE  TIME  PHCGRESSICS  IB  THIS  DIR 

>T  -  "DUE?  REMAINING  EXCEEDANCE  TIMES,  THEY  APE  ALL  BELOW  THRESHOLD 
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?TN  -  THE  TIME  T  T1IT  !'ASN”  BEEN  PEACHED  YET 
LXISI  -  IS  THIS  'r,lS  FI  AST  CALL  TO  POSCCC  FC8  THIS  FLIGUT 
!*.-  INDEX  V  ART .\BT  E>  ERROR  INDICATOR  NUSBER 
MNPLF-USED  PftP  OMPING  IK  CASP  AH  ERROP  IS  DETECT  EH 

SUPS-  DSHD  FrR  DUNPTN3  1*1  CASE  AE  ERPCR  IS  DETECTED 

ENTS-  US'**  F"R  DUMPING  It:  CASE  AH  ERROR  IS  DETECTED 

*:-  INDEX  VAPI  A3*  E 

"?.C-  USED  FOR  DAMPING  I'"  CASE  AS  ERKOE  IS  DETECTED 
HOIK-  USED  Fr  E  DUMPING  IK  CASE  AK  ERPCR  IS  DETECTED 

EPS-  D"«E.Y  Fr'R  ''VRTAY  (XFS)  jK^HBER  OF  FLIGHT  PATH  SEGMENTS  ASSEMBLED  BT 
'  vt>’  jy 

sens-  tnrJBEn  of  observers 

V°CAS-  NMUER  OF  THE  F*  I  GUT  PATH  SEGKEKT  TO  START  AIRCRAFT  TRACKING 
IP*  P-  THE  *!«»?£»»  n?  TTME  STEPS  UP  TO  HRICHTHE  RESULTS  OF  EACH  STEP 
A°F  STORED  TH  SPRAYS  TG?I#  ALPL,  A!JD  CCCRD. 

"PS-  N" M8EP  Cv  PROFILE  SEGUE ’ITS 

•;rM_  ;tSvn  F~P  i)**H?IKG  ti:  CASE  AS  ERROR  IS  DETECTED 
'IST'0-  MAX  I  SPY  ALT  0‘JAB?  E  N^MHER  OF  TIRE  STEPS  IS  ANY  ONE  .SE3NENT 

*:th-  ’H’f.bep  of  *rH?ESHO*n  levels 

STS~  N^BER  0“  T^ACK  SEGMENTS 

'"•EGA-  AEGUI'P  VELOCITY  IS  R AMASS  PER  SFCOSDS  VITR  WHICH  THE 
ATRPLANE  13  ALLOWED  ”C  CHANGE  ITS  KCSEtl?  AED  BANKING  ANGLES 
O  -  SWAPPING  ARRAY  T  SINPJ IFY  SWITCHING  OF  VARS  XT  PROGRESSION  REVERSAL 
r  (3  EE  T  I'!E  *F  A*1D  PREVIOUS  IISES) 

r  01-0  FP''X  PP.EVIvPS  STEP,  ETC 

0  S'HE-r-  A  GIVES  DISTANCE  IS  FEET  WHICH  ,  IF  EXCF.EDEDAT  AM  TIHE 

r  BV  the  AIRCRAFT  to  OBSERVER  DISTANCE,  CAUSES  THE  TRACKIKG  PROCESS 

r  7'-  TERI.T,'ATE 

0  STSO-  speed  VHE”  CROSSING  A  SEGMENT  BOUNDARY 

r  --  tTvo  *-’HEN  THE  AIRCRAFT  IS  EXACMY  AT  THE  SEGMENT  BOUNDARY 

<*  tt -  <i.  fcE  TAFSCFF,  -1.  FOP  LANDING 

-  t t\«ax  -  *oST  SUBSEQUENT  TIHE  STEP  TO  BE  CONSIDERED  IN  CURRENT  SRS 

C  TLARTt:  -  -*ost  nPHVI'",,S  ?T“E  STEP  TO  BE  CONSIDERED  IN  CURRENT  SES 

C  TMAX-  THE  LARGEST  ALLOWABLE  REAl-TISE  IS  SECONDS 
C  tht«-  THE  SEXIEST  A!|OKABTE  REAI-TIHE  IN -SECONDS 

r  TOTALT-  ARRAY  F~P  'IP  "O  2D  OBSERVERS  CONTAINING  THE  TOTAL  TlHES 
C  '-VER  V11TCH  CMCMATICKS  have  p.eek  pepporhed  by  TIHISI  - 
C  TP*  M  -  C’PP ENT  TIHE  ST”  (QUESTION  HARK) 

C  TSDI  -  TTHE  STEP  TC LEE ABCS  (DCL*TSSC) 

"SDL5  -  A  LARGER  TIM  STEP  TOLERANCE  (DCL*TS3C**D) 

C  TSSC-  *'SSD  *o  CONTROL.  THE  TIHF.  STEP  BY  CHECKING  THAT  ADL  IS  SHALLES 

r  THAN  DC’MSSC.  THE  *  APSE"  T SSC ,  THE  GREATER  JUBPS  IN  NOISE  7EVEL 

C  APE  ALLOWED,  THS  POORER  the  RESOLUTION 

C  *»  -  SCRATCH  V A”  «SED  TO  CMP"TE  VARIOUS  DIFFERENCES,  AS  LISE  312 

C  V.!-  VECTOR  FPC’V  "HE  FIXED  COPRDTNsTE  ORIGIN  T”  THE  AIRPLANE 

C  VALPHA,  VDFT;,  VGANNA  ARE  v«j rr  VECTORS  POINTING  IK  THE  DIRECTIONS 

O  Of  the  VHFEF.  AX pS  op  T :!p  COORDINATE  SVSTEF  FIXED  WITH  THE  AIRPLANE 

C  VD-  A!!  ARRAY  OF  VECTORS,  EACH  VECTOR  POINTING  FRCB  THE  AIRPLANE  TO  ONE 

C  ODSEPVEP .WITH  PES’EOT  TO  THE  AIFPORT  FIXED  COORDINATE  SYSTEN 

n  VD"-  SAYS  AS  70,  EXCEPT  VECTOR  CCHPONF.NTS  ARE  WITH  RESPECT  TO 
C  AIPPIAEE  FTXE3  COORDINATE  SYSTEN 

c  yo-  A  RP  A  v  OF  on  7-5  TO  VECTORS  EACH  POINTIFG  TO  ORE  OBSERVER 

C  W-  LENGTH  OF  the  SEGMENT  (MEASURED  IN  THE  GPCDND  PLANE) 

C  T I HI ST  -  SUBPOUTIVE 

C  S^BP^UTINE  TIHISI  TS  CA* * FD  DURING  ASDS  op  DOSE  CALCULATIONS  TD 
C  PROVIDE  THE  TINES  THAT  SELECTED  THRPSHOTD  NOISE  LEVELS  .ARE  EXCEEDED 
C  PY  CEE  FLIGHT.  TC  THIS  END,  A  TINE  HISTORY  SINOLATIOH  (HENCE,  THE 
C  EASE.  OF  THE  S!t3pof»Ti;js)  TS  PERFPRSF.D  BY  TRACKING  THE  AIRCRAFT  ON  ITS 
C  "SI”  GROnNO  to»cK  GEOMETRY  AND  AIBCPAFT  PERFORsahCF.  IHFORHATION. 

C  TRE  TRACKING  IS  Doj:e  I;!  DISCRETE  TINE  STEPS  CF  VARYING  LENGTH. 

"  TIHISI  C*LL  SEVFRAL  EXTEDNAI  SUPROUTTEES: 


C  rVBTAY  -  OVERLAYS  THE  PERFORMANCE  PROFIT E  OVER  THE  GROUND  TRACK, 

C  DETKPr.P'ES  FLIGHT  PATH  SEGMENTS.  CALLED  IH  LIRE  V7  (SEE  LISTIRGS, 

C  SECTICM  . 

r  p-S CO''  -  DETERMINES  THE  POSITIOB  COORDINATES  OF  the  AIRCRAFT  AHD  TUE 
C  AIRPLANE  FIXED  COORDINATE  SYSTEM,  RCTH  KITH  RESPECT  TO  THE  AIRPORT 
C  'TXED  COORDINATE  SYSTEM.  CALLED  IE  LIRE  190. 

C  EGA  -  CAT Cnr  *TE5  EXTRA  GROP«D  ATTEKUATIOM  (LISE  230). 

C  AL  -  CALCULATES  "HE  Ho-TSE  LEVEL  AT  THE  ASATYSIS  POINT  FOR  THE 
C  CnpreET  AIRCRAFT  POSITION  AHD  ORIENTATION  (LISE  223). 

C  TIHISI  'IAS  "HE  ENTRY.  PoiRT  ONLY  AHD  THE  CAI1TSG  SEQUENCE  IS: 

C  CALL  TIHISI  (*,DIST1, UIST2  ,SC.MEH0) 

C  -HERR 

r  *  -  to  HE  REP!  ACED  IE  AT  ACTUAL  CA1T  BY  A  STATEHEST  LABEL  TO  WHICH 

C  Tr  BRANCH  IN  CASE  OF  A  RETURN  1  FROM  TIHISI.  THIS  FEATURE  IS  USED 

C  TR  CASE  TIHISI  DETECTS  AS  ERROR. 

C  DTST1  ,DIST“  -  CAT  CO  ATED  BY  TIHISI:  DISTANCES  IS  FEET  FROH  HUSBAY 
C  THRESHOLD  ALONG  GROUND  "BACK  INDICATING  FROH  WHERE  TO  WHERE  THE 
C  A  TRCP A?  T  WAS  TR  ACKED. 

C  SCMESO  -  VALUE  TO  BE  SUPPLIED  WHEN  CAIITKG  TIHISI.  IT  IS  A  GIVES 
C  DISTANCE  IS  FEET  WHICH,  IF  EXCEEDED  AT  ANY  TIHE  BY  THE  AIRCRAFT  TO 
C  OBSERVER  DISTANCE,  CAUSES  THE  TRACFIKG  PROCESS  TO  TERMINATE. 

C  PRESUMABLY,  SORESO  is  CHOSEN  SUCH  THAT  THE  RESPITING  HCISE  LEVEL 
C  went  9  BE  TOWER  THAN  ANY  REASCSABIE  J  OWEST  THRESHOLD  LEVEL.  SOHEH3 
C  DEPENDS  ON  AISCP APT  TYPE.  USED  ONLY  CHCE  IB  LISE  232. 

C  TIHtSI  rs  CALLED  0*  SUBROUTINES  ASDS2  AND  ASD53.  IN  ADDITIOS  TO  THE 

C  CAITISG  SEOUENCE,  fills!  COMMUNICATES  VIA  HAST  COMMON  BLOCKS: 

C  /"HPLOK/  -  CONTAINS  A  CONGLOMERATE  OF  VAPIABLES  WHICH  MUST  AIL  HAVE 
C  SPECIFIED  VALUES  WHEN  TIHTSI  TS  CALLFD: 
r  JCTRA*;  THE  TRACK  NUMBER 
C  S"S:  THE  NUMBER  CF  TRACK  SEGMENTS 
C  ”PS:  T”E  NUMBER  uf  urcfIT E  SEGMENTS 
C  FOBS:  THE  NUMBER  CF  OBSERVERS 

C  J:  AIRCRAFT  NUMBER  (SEE  ARGUMENT  0  IN  FUNCTtOH  SUBROUTINE  AL) 

C  ESTEP:  "AXIMUM  AI’  0"A3LE  NUMBER  OP  TIME  STEPS  IH  AST  ONE  SEGMENT 
o  FTH:  NUMBER  THP2SHCID  LEVELS 

C  BATRK:  DISTANCE  IU  FEF"  of  POINT  OF  CJOSEST  APPROACH  TO  THE  FIRST 
r  CHSEFVER,  MEASURED  A* OHS  THE  GpOUND  TRACK  STARTISG  AT  THE  THRESHOLD 
C  ~F  THF  RUNWAY  WHICH  SonLD  BE  USED  IF  IT  WERE  A  TAKEOFF  TRACK.  DATRK 
C  MUST  ROT  BE  T  OSG EE  THAN  THE  TRACK  ITSEI F.  A  NEGATIVE  DATRK 
**  INDICATES  THAT  THE  PC-TE*  OF  CLOSEST  APPROACH  TC  THE  FIRST  OBSERVER 
C  IS  T!!F  START  ROIw"  O'  TUE  TRACK.  TF  DATRK  IS  NEGATIVE,  IT  SEED  SOT 
C  BE  THE  ACTUAL  DISTANCE  TO  THE  START  PC-IST. 

C  TL:  *1.  FUR  TAWSCFF.  -1.  FUR  LANDING. 

C  *CHPCK:  TPUE  IF  T'u  VISH  TIHISI  TO  CHECK  CS  THE  REASONABLENESS  OF 
C  THE  ARGUMENTS  I"  THE  CALLING  SEQUENCE  AND  SOME.  CF  "HE  PARAMETERS  IS 
r  common  BLOCK  ASDSEL.  FALSE  OTHERWISE. 

C  ’ DET’  i  TRUE,  IT  Top  VISH  DETAILED  DIAGNOSTIC  OUTPUT  FOR  EACH  TIME 
C  STE*.  FA*  F  E,  rTHERWTSF. 

C  VC;  V0(?,?0)  IS  A”  .ANN AY  CF  UP  TC  20  VECTORS  EACH  POINTING  TO  OKB 
o  CUSEDVE'.  TF  N  TS  THE  grseRVFF  HUMBER,  THEN  VP(1,N)  TS  THE  I-CCORD- 
C  I”?TE,  7C(2,N)  CHE  Y-oourjIN A"E,  ASD  VOp,N),  TUE  .ATTITUDE,  ALL  IS 
C  FEET.  YOU  MUST,  C?  COURSE,  PROVIDE  SORS  VECTORS.  NOTE  THAT  IF  THE 
C  »-»tttuj)f,  ts  GREATER  THAI  "'O  FEPT,  NO  EXTRA  GROUND  ATTENUATION  IS 
C  SUBTRACTED  P?u*  ^H£  ATRC’AF"  NOISE  LE'RT  FOR  THAT  03SERVFR. 

C  EPLR:  THE  u"MHER  CF  TIME  STEPS  up  t'*  WHICH  THE  RESULTS  OF  EACH  STEP 
o  :?E  STORFD  IF  ASSAYS  TGPL,  ALPT  ,  AND  COORD,  I.E.,  THF  ACTURAL  NOISE 
C  LEVS!  Tiur  HISTORY  AND  AIRCRAFT  POSITION  AND  DIRECTION  ARE  DEPOSITED 
C  THERE.  TUTS  HAS  DEE”  'HIIT  PRIMARILY  FOR  THE  pURoosg  PLOTTING 
C  THF  TIME  HISTORIES  F^p  EACH  OBSERVER,  BUT  MAY  BF  USED  OTHERWISE.  IF 
C  TPTP  TS  '  ESS  THAN  OP  NOPAT  TC  ZERO,  ARRAYS  TGPL  AND  AT  ??  ABE  NOT 
C  FIILED.  NPIP  MUST  NCT  3E  .GREATER  than  woo.  if  the  actual  suhber  of 
C  TIMFS  STFPS  EXCEEDS  NnJ ?,  T THIS  I  CONSIDERS  THIS  AH  ERROR.  THE 
C  APRAYS  TGPL,  AT  PL,  AND  COORD  ARE  OS  COMMON  BXOCK  /PTOTUI/  (SEE 
C  HE!  on. 

C  -FNPGY:  TF  ACCUMULATED  ENERGY  NOISE  T.EVET  S  ARE  TO  BE  CALCULATED, 
o  «;tTs  TS  -RUE.  FALSE  OTHEP.WTSE. 


C  B?rCGR:  -H-  SACKIOC-ND  T*ISE  LEVEL  TS  ENERGY  EQ3IVAL5NT  OBITS. 

c  rois?.  ’E»r  s'EVEn  -p- ?s  bei*'b  it.  zxaap’E:  ip  background  letet,  is 

C  <'5  7>P.  THEN  BACK  02/19)  =3. 1€23ED 

c  /; spsr’ /  -  contains  vartah’es  and  arrays  bejiting  to  the  tracking 

C  *T  5" PTTHT  ANh  ASPS  CM.C7M-TCSS.  AT  3M  THE  IAST  TH3PB  30ST  HATE 
r  S-ECIFIbn  VAL-ES  WHEN  TIHISI  IS  CALLED.  THE  IAST  THREE  AEE 
C  CAT C-'  ATFD  3Y  TIH-SI  [T-'T.'.”,  ASDST,  ENERGY).  Alt  VARIABLES  ABE 
C  . 

C  ASP?''?:  -HIS  PROFILE  IS  GS8 EPATED  IP  S^DFCOTIKE  PF.EPP  AND  IS  THE 
C  T'BEFrPTArCE  -RCFI?  H  FOP  THE  AIPCPAFT  TYPE  IS  THE  C3ERE3T  FLIGHT 
C  «EI**'  ANA7  YZEO.  Til!  I  SI  NODIFTES  ASPROF.  WHETHER  IT  TS  A  LASDISG  C8 
C  A  -AXECFF  PPCFI’E,  DISTANCES  ASE  II KAYS  NEASURSD  IE  FEET  FRON  THE 
C  ‘■•’’EVAY  THPFSH^LD  VHICrS  WTIT-D  PE  THE  THPESHCT I)  IF  IT  WERE  A  TAKEOFF 
C  — r  AC*. 

C  PCT:  •>SEr>  r~  t)E“E=TI3i::G  THE  size  o*  the  next  ties  incbshent,  BASED 
r  .  T*»  the  C—P—E*"?  TI*T  ITCRERFN-  AND  THE  CHANGE  IH  NOISE  T  Ef  El  OVE3  T3E 
C  I'-S~  STF?:  VIA 

C  =  DT*  DC!  AAV 

c  CHER-  APT  TS  APS-* TTE  V  \lnE  0?  T3F  *  AST  BOISE  T  Ef  ET  DIFFERENCE. 

C  DCL  IS  -JSOAIVf  CHOSEN  3E“YEE”  1  AHD  -  DP.  THE  SHALL EB  DC1,  THE  HCRE 
C  ACCT».*T  THE  PESOIS-Icr.  -HE  LAEOER  TIIE  COEPOTXNC  -ISH. 

r  TSSC:  -SEP  -*>  CCB-m:  THE  TTSE  STEP  BY  CHECKING  THAT  A0!  IS  SNAILER 
C  "3*3  00**TS3f.  SH-DTD  \DT  3F  OFEATEP,  THES  THE  "*T3B  STEP  IS  3AI TED. 

*■  TSS~  IS  -S-’AIIY  CHOSEN  3E-WEEZ  1.2  AED  3.  IT  HOST  EOT  BE  LESS  OS 

f  E"SA*  Tc  1.  TPF  '  AFGSE  TSSC,  THF  GREATFR  JUHPS  IS  NOISE  I.ETE1  ARE 
C  THE  PC'SH-  THE  PESOLCT ICS.  5CTE  THAT  IT  SriRKS  IS 

C  C'"N.TrrNCTI'"**  VTTH  DC*. 

C  DIN":  -HE  INT-1  At  -THE  IECEEHEF-  TE  SECOEDS. 

c  y-T»: 

C  SKINT. LR. DINT. IE. BEAT? 

C  MI--:  THE  5HAI  *  EST  AT 7  OS ABIE  -THE  STEP  SIZE,  SECONDS. 

-  DHSYT:  THE  LARGEST  AIT^WABIE  TB£  STEP  SIZE,  SECOEDS. 

C  THir:  THE  SHAT1FST  V10VAB1E  REAL-TI-E,  SECOXOS. 

f  -TAX:  THE  1APGEST  AT.ICVADLS  3SAL-TIFE.  SECCSDS. 

C  '••EG*:  THE  ANGOTAF  73*  1CT-Y  Tr  S AMASS  PER  SECCHD  BITH  WHICH  T3E 
C  AT?-’ ASF.  TS  A77  0VF.*»  T-  CHANGE  IT  KOSE-r?  AFD  BANKING  ANGTES. 

C  A ITT:  ARP  AT  OF  3°  TO  "0  THRESHOLD  LEVELS  IS  DB  FOB  WHICH  EXCEEDENCE 

-  TIRES  VI7  T  OE  CA7  CnI  ATF.D.  -HP  ACID  AT.  SORB  EH  OF  LEVELS  OS  ED  IS 
r  INDICATED  PY  NTH  Tr  C-NSM  tl7  OCK/THBL-r/. 

C  OOTALT:  PCS  EACH  ■~F  VP  T~  20  -USER? EPS,  THE  TOTAL  TIRES  CIBH  WHICH 
C  C*I  Cn7  ATICNS  HASP  3 EES  PERFOBNBD  BY  TIHISI  ABE  ACC03CI.ATED  IS  THIS 
0  1»®AY.  THESE  TIRES  WT’T  HE  * CNGER  THAN  THE  EXCEEDENCE  TIKE  AB07E 

C  THE  ’OWES-  TPRESHOTD  IF.VE'  3ECA"SE  TIHISI  CA1C01ATES  AN  EXTRA  S 
C  P-T-TS  RET  os  THE  ’  rSEST  THf-SHOID  ’ EVFI  15  AN  ATTEMPT  TO  SAKE  SOBS 
C  THAT  THE  TOISE  I .f.YEL  DOES  EOT  COTE  OP  AGAIN. 

r  ASDST:  1PHAY  F-P  n?  TO  ‘0  THPESHOID  LEVELS  AND  *JP  TO  20  OBSERVERS, 

C  C*--TAISI’,G  THE  THP-SHO’D  *EVET  EICEEDFNCR  TI5ES  FOR  EACH  OBSSRTER  IS 
C  SECONDS. 

C  F',FT*St:  AN  ARRAY  FOR  -R  ?“  20  OBSEBYEPS  TN  WHICH  T3HS  BOISE  ENERGY 
<•  ?RfYE  THE  LOWEST  THRESHOLD  LEVEL  IS  ACCOHOLATED  IF  LESRGY  IS  .TRUE. 

C  fSEE  THPL-E  A 30 YE)  .  T-E  PESHI.T  15  ENERGY  AFTER  THE  TIHISI  CALL  APE 
C  -HE  ACCIHCTATED  E5EPG-  NOISELSVETS  FOR  EACH  OBSERVER  FOB  THIS  ONE 
f*  P’TRT.  BCTE  THAT  EPEP.GY  TS  SET  -0  ZERC  AT  THE  START  OF  EACH  TIHISI 
C  C’LL. 

C  /?t i?B’  /  -  -T3ISI  TILLS  THIS  APPAY  IF  5PIP  IS  POSITIVE  (SEE/THBI OK/) 
0  KX:  N-RBEP  CF  PCI"TS  IN  THE  TIRE  PIS-r=T: 

C  0. IE.rS.LE.NPLP 
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C  TGPT:  TGPI  (402,20)  CONTAINS  FOR  OP  TO  400  POINTS  AND  OP  TO  20 
C  OBSERVERS  TUF.  SCOHD  ARRIVAL  TIMES  IN  SECONDS.  THE  EXTRA  TWO  WORDS 
r  ABOVE  '400  ARE  PROVIDED  FOR  PLOT  SCALING  PARAMETERS. 

C  A’ PL:  \LPL  (402, 20E  CONTAINS  FOR  OP  TO  400  POINTS  AND  OP  TO  20 
C  "USERVERS  THE  A-KEIGHTSO  NOISE  IEVEIS  IN  DB,  CORRESPONDING  TO  THE 
C  SOUND  APRIVAt  TIMES  IN  TGPL. 

C  COORD:  COORD (102, 3)  CONTAINS  FOP  DP  TO  400  POINTS  THE  AIBCR AFT 
C  POSITION  AMO  ''RTENTATtON  ASSOCIATED  WITH  THE  CORRESPONDING-  VALUES  IN 
r  TGPL  ANO  ALPL.  THE  MEANINGS  OF  THE  SECOND  INDEX  OF  THIS  ARRAY  ARB: 

C  1-X-OOORDTKATE  IN  FEE'” 

C  2-Y-COOPDINATE  IN  FEET 

C  ’-ANGLE  IN  RADIANS  OF  AIRCRAFT  LONGITUDINAL  AXIS  VITH  POSITIVE 
C  X-AXIS. 

C  TIHTSI  COMMUNICATES  WITH  OTHER  SUBROUTINES  VIA  THESE  COMMON  BLOCKS: 

C  /AIIMIT/  -  SEE  FUNCTION  SUBROUTINE  AL. 

C  /B7K2/  -  CONTAINS  "HE  DEGMENTED  SPECIFICATION  OF  THE  FI IGHT  PATH. 

C  ARRAY  FLITEP  IS  FILLED  BY  SUBROUTINE  OVRTAv 
C  /VF.CRJ  K/  -  CONTAINS  VARIOUS  VECTORS. 

C  VA  POINTS  FROM  THE  FTXED  COORDINATE  ORIGIN  TO  THE  AIRPLANE. 

C  VALPHA,  VBETA,  VGAMMA  ARE  UNIT  VECTORS  POINTING  IN  THE  DIRECTIONS  OF 
C  THR  THREE  AXES  OF  THE  COORDINATE  SYSTEM  FIXED  WITH  THE  AIRPLANE. 

C  VD  IS  AN  ARRAY  OF  VECTORS,  EACH  VECTOR  POINTING  PROM  THE  AIRPLANE  TO 
C  CNE  OBSERVER.  VECTOR  COMPONENTS  APE  WITH  RESPECT  TO  THE  AIRPORT 
C  FTXF.D  COORDINATE  SYSTMD. 

C  VD2  IS  THE  SAME  AS  VD,  RUT  VECTOR  COMPONENTS  ARE  WITH  RESPECT  TO  THE 
C  AIRPLANE  FIXED  COORDINATE  SYSTEM. 

C  THERE  ARF.  THREE  RETURNS  POSSIBIE  FROM  TIHISI.  THE  NORMAL  HBTORNS 
C  OCCUR  IN  T INES  4  98  AND  50?.  THE  RETURN  1  IN  I INE  554  IS  TAKEN  IN 
C  C*SE  TIHISI  DETECTS  AN  ERROR.  THE  FOLLOWING  IS  A  LIST  OF  TIHISI 
0  ERROR  MESSAGES: 

C  TTHIST  ERROR  MESSAGES: 

C  ERROR  MESSAGES  ARE  IN  THE  FORMAT 
C  EFRO"  IN  "'IHISI:  INDICATCR=XXX 

0  WHER"  XXX  IS  A  SIGNED  INTEGER  NUMBER  INDICATING  THE  KIND  OF  ERROR. 

C  IF  XXX  IS*  THE  RRROR  IS: 

C  -1  OHe’oP  -"HE  TIME  UNITS  TM IN  OR  TM AX  HAS  BEEN  REACHED. 

C  0  AN  ERROR  in  tHF  SUBROUTINE  OVPT AY  WHICH  WILL  PRINT  A  MOHE 

C  FXPT.ICIT  ERRC0  ''KSSAGE. 

C  1  THT  MAXIMUM  NUMBER  OF  STEPS  IN  ONE  SEGMENT  (NSTEP)  HAS  BEES 
C  EXCEEDED. 

C  2  NPTP  BEING  GREATER  THAN  0,  THF  NUMBER  OF  TIME  STEPS  EXCEEDS 
o  1’PT.P. 

C  2  DURING  THE  EGA  CALCULATION,  IT  IS  DETERMINED  THAT  THE  AIRCRAFT 
C  'TTEMPTS  TO  FIY  AT  A  NEGATIVE  ATTITUDE. 

C  f  NTH  OUT  OF  RANGE. 

r  r  NTS  0"T  of  RANGE. 

e  NOBS  otrT  r  p  RANGE. 

.7  CUT  OP  PAMGE. 

P  NSTF.”  IS  »  ESS  THAN  ?.0  op  GREATER  THAN  1000,000. 
c  THF  V  AT  nES  IN  ARRAY  AT TH  APE  NOT  MONTONIC ALL Y  INCREASING. 

’0  DINT<0 . G01  C?  OINT>  DMAXT. 

V  DMINT<0. 001  OR  UMINT>  DMA  XT. 

"2  TMAXCTMTK. 

NR  DCKO.OOU. 

TSSC<  i.OOi 

1"  CMEGAXO. 00 1  or  oMEGA>?. 

IP  KTRAK<or  ktrak>b9. 

n  «pip>t*00. 

.  V)  ATTEMPT  'T  f?Y  PAST  THE  END  OF  THE  DEFINED  GROUND  TRACK. 

r  1«*  TL  if.  NOT  EQUAL  TO  *1.  OR  -1. 
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C  •’0  NPS  IS  DU?  of  RANGE 

r  21  BACKUP  (IF  r-'tlVEBTED  TO  DP)  IS  GREATER  THAN  ALTH(1)-1  IT 

C  SHOO'D  BE  ’’C-ED  TH'T  EXTENSIVE  ERROR  CHECKING  IS  DONE  ONLY  IF  LCHBCK 
r  IS  SrT  TO  .  TRnE*  (SSE/THRLCK/)  • 

C  TIHIST  PROGRAM  STRUCTURE  AND  PROCESSING  PERFORMED: 

C  ITNPS  1  THROUGH  28  (SEE  LISTINGS,  SECTION  5)  AT I  CONTAIN 
C  SSECIPICATICV  STATEMENTS.  I  IHES  30  THROUGH  52  CHECK  FOR 
C  •’EASCBABT.F.NESS  rF  DATA  SUPPLIED  TO  TIHISI.  IN  LINE  37,  THE  PROFILE 
C  * WD  THE  GP-->""0  TRACK  ARE  COMBINED  ("OVERT  AYED")  ,  AND  A  SEGMENTED 
r  F’ I1H*  PATH  TS  DFFTKGD.  TTNES  62  THROUGH  175  PERFORM  VARIOUS 
C  IviriALI"ATir>Us  AMD  ANCILLARY  CALCULATIONS.  LINE  CONTAINS  LAVRL 
C  801  HUTCH  IS  A  "TINT  T"  WHICH  CONTR0T  RETURNS  AFTER  EACH  TIME  STEP 
C  (TINES  rO1,  ’197).  J.*.BET  R’2  (T  TKF.  179)  INCREASFS  THE  REAL  TIME, 

C  T.E.  ,  PERFORMS  ’’HE  DISCRETE  TIME  STEP,  USING  AN  INTERNAL  SUBROUTINE 
C  DEFINED  IN  *INES  MOO  THROUGH  £"0.  IN  LINE  190,  THE  AIRCRAFT 
r  p-SITIo,]  ,«[,  tHE  aircrAF”  FIXED  COORDINATE  SYSTEM  ARE  DETERMINED. 

C  IN  LINES  '0«  THROUGH  231,  THE  MOMENTARY  NOISE  LEVEL  AT  EACH  OF  THE 
o  NOBS  OBSERVERS  TS  CALC"T\TED  MAKING  USE  OF  SUBROUTINES  Al  AND  EGA. 
g  VOTE  THAT  THF.  ATPCBAF”  FIXED  COOP DINATE  SYSTEM  M"ST  BE  USED  WHEN 
0  CALLING  Al  (LINE  223).  IV  TINE  231,  THE  SOUND  ARRIVAL  TIME  IS 

C  C tt c"! ATED  USING  A  CONSTANT  SPEED  nT  SOUND  OF  112c  FEET  PER  SECOND. 

0  VA»IABT  E  TIME  INCPEMFNT  Al  GO  HIT  !1N 

C  FGR  AN  AIRCRAFT  NOISE  TIME  HIS”CRY  IT  IS  DESIRABLE  TO  SPACE  THE 
0  n’lATS  i'K  the  TIME  AXIS  CLOSE!  Y  WHEN  THE  NOISE  LEVE!  CHANGES  RAPIDLY 
C  .AND  CONVERSE* Y,  Tn  SPACE  THE  POINTS  SPARSE! Y  WHEN  THE  NOISE  LEVEL 
0  CHANGES  SLOWLY.  THIS  TS  DONE  IN  AN  EFFORT  TO  OBTAIN  SUFFICIENT  TIME 
o  °ESOI  DTTO*’  WTTHOi.it  REDUNDANT  CAT.CUI  ATIONS  WHEN  SUCH  ACCURACY  IS  NOT 

C  !>EQ"TPED.  THE  FOI’OVING  opSRyr  IONAI.  PRINCIPLES  ARE  FOLLOWED  IN 

C  DETERMINING  THE  "NEXT"  TIME  INCREMENT  DT: 

r  ORDINARY L" .  DC  TS  INCREASED  CR  DECREASED  FOR  THE  NEXT  TIME  STEP  IN 
g  INVERSE  PROPORTION  TO  THE  LAST  NOISE  LEVEL  DIFFERENCE  DL  (SEE  ALSO 
DC1  IV  /ASDSBV). 

IF  TWO  SUCCESSIVE  NOISE  LEVEL  DIFFERENCES  ARE  VERY  SMALL,  DT  IS 
Dg>ir-  eo. 

TV  ORDER  -0  INCREASE  "HE  °ESCL'JTTON,  AN  EXTRA  POINT  IS  CALCULATED 
HAT  F  WAY  BETWPER  THE  PREVIOUS  AND  THE  CURRENT  TIME  IF  ONE  OF  TWO 
Cg»1DtTI0NS  occurs:  (7 )  DT  is  EXCEPTIONALLY  LARGE,  AND  (2)  AN 
EXTREM»M  IS  SUSPECTED,  I. E. ,  IF  THE  CURRENT  AND  THE  PREVIOUS  DL  ARE 
OF  OPPOSITE  SIGVS.  IF  ONE  OF  THESE  CONDITIONS  OCCURS,  THE  LAST 
C  AT  C"’  A  TED  RSS’tTTS  ARE  DISCARDED  A  "ft  THE  PROCEDURE  IS  REPEATED  USING 
.  HALF  THE  STEP  SITE. 

C  DT  C AW  NEVER  BE  LESS  mH\N  DMINT  ->R  GREATER  THAN  DMAXT. 

C  THIS  DETERMINATION  OF  THE  "NEXT"  TIME  INCREMENT  D’’  HAPPENS  IN  LINES 
r  93 n  THROUGH  32". 

C  "•■KING  USE  OF  AN  INTrRSA’  SUBROUTINE  (ASDT,  LINES  330  THROUGH  591), 

C  OKO  CALCULATES  NOISE  LEVS!  EXCEEDENCE  TIMES  OVER  THRESHOLD  LEVELS 
C  "SING  SOUND  ARRIVAL  TIMES  CALCULATED  IN  LINE  231. 

C  IN  ’IKES  -r8  THROUGH  !»?7f  VARIOUS  CONDITIONS  ARE  CHECKED  AND 
C  DECISIONS  ARE  MADE  REGARDING  THE  DIRECTION  OF  TIME  PROGRESSION, 

C  .A0,1"STMFrTS  TO  “"ME  VARIABLE  TIME  INCREMENT,  AND  VALDES  TO  REMEMBER 
C  For  t  AT PR  CAICOT ATIONS. 

C  TRACKING  BEGINS  AT  THE  PCIN'"  OF  CLOSEST  APPROACH  TO  THE  FIRST 
C  ODSFRVRP  (PCA) .  THE  SEGMENT  CONTAINING  THIS  POINT  IS  CALLED  THE  PCA 
C  SEGMENT.  TNITIAIP  Y ,  A  VARIAB7  E,  JF,  IS  SET  TO  3,  INDICATING  THAT, 

C  STARTING  AT  TIME  «-  =  0  AT  PCA,  THE  AIFCRAPT  IS  TRACKED  IN  A  POSITIVE 
C  TIME  DIRECTION  UNTIL  THE  END  OP  THE  SEGMENT  IS  REACHED  (POINT  A). 

C  PETFVANT  PARAMETERS  AT  THIS  POINT  ARE  STORED  AND  TRACKING  CONTINUES 
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C  A'1'  ?r A  PROGRESSING  IN  A  NEGATIVE  TIME  DIRECTION  (JF=r>)  UNTIL  POINT  B 
C  IS  RP ACHED.  AGAIN  RELEVANT  PARAMETERS  ARE  STORED,  AND  TRACKING  • 

C  CONTINHPS  AT  A  KITH  THE  SEGMENT  AFTER  THE  PCA  SEGMENT  (JF=1)  ONTIL 
0  THE  NOISE  LEV El  IS  BELOW  THE  LOWEST  THRESHOLD  LEVEL,  OVER  AS  MANY  • 

C  SEGMENTS  AS  NECESSARY.  THEN,  TRACKING  RETURNS  TO  POINT  B, 

C  '  CONTINUING  IK  A  NEGATIVE  TIME  DIRECTION  AS  FAR  AS  NECESSARY  (JF*0). 

C  NOTE  THAT,  NC  MATTER  WHAT  THE  TIME  STEP  SIZE,  A  CALCULATION  OF  NOISE 
C  LEVELS  AND  SOUND  ARRIVAL  TIMES  IS  ALWAYS  PERFORMED  AT  SEGMENT 
C  BOUNDARIES,  REDUCING  THE  CURRENT  TIME  STEP  AS  REQUIRED.  THE  CODE  IN 
C  LINES  GSR  TC  US’*  IS  COMPLICATED  BECAUSE  A  NUMBER  OF  UNUSUAL 
C  CONDITIONS  CAN  f'CCPR  WHICn  MOST  BE  PROPERLY  DEALT  WITH.  FOR 
C  INSTANCE,  TRACKING  MAY  STOP  ALREADY  IN  THE  PCA  SEGMENT.  OR,  THE  PCA 
C  SEGMENT  MAY  BE  THE  FIRST  SEGMENT  (TAKEOFF  OR  LANDING  ROLL).  ALSO, 

C  For  TAKEOFFS,  THE  AIRCRAFT3S  NoSE  IS  POINTED  IN  THE  POSITIVE  TIME 
C  DIRECTION.  FOR  LANDINGS,  THE  TRACKING  PROCEDURE  IS  IDENTICAL,  ONLY 
C  THE  NOSE  POINTS  THE  OTHER  WAY. 

C  BECAUSE  THE  TRACKING  METHOD  JUMPS  BACK  AND  FORTH  IN  TIME,  THE  VALUES 
C  DEPOSITED  IN/PLOTBT /  ARE  N*T  IN  PROPER  ORDER.  IF  USED,  THEY  MUST  BE 
C  SORTED  ACCORDING  TO  MOHOTONICALLY  INCREASING  SOUND  ARRIVAL  TIMES. 


Subroutine  TOLRD 

S^MBOUTTN"  TO' in 


r  *** *************************  ************************** ************ 

r  -  s’lnp'-UTV’E 

C  the  3rBR-'«TTtjn  TO*  t»T)  IS  USED  TO  READ  USER  DEFINED  REPLACEMENT  VALUES 
'•  V~  R  "HE  TCLFRANCS  TO  BE  USED  IN  CHECKING  FOR  CONTOUR  LOOPING 
0  on MBIT! INS. 

0  »CLRU  mES  NC?  USE  ANY  EXTERNAL  SUBRCUTIHES. 

O  -rntrn  HAS  n>’E  ENTRY  ",rtT NT  AMI)  THE  CA7IING  SEQUENCE  IS 

r  oat.l 

'*  RFAUIN  IS  THE  ON*  Y  S-np^TIBE  TO  CAIT  TOIRD  AND  IT  WILL  MORMAILY 
C  CN*Y  BE  CA1  LEO  C”CR  REP  R'»«. 

C  TflF  T»’P"T  To  TCT.RD  IS  PROVIDED  FBOM  DATA  CARDS  IN  THE  IMPUT  RUN  DECK 
C  THERE  IS  CUE  EXIT  »ETNPN  FROM  ?nj.RD,  LOCATED  AT  LINE  NUMBER  11  IN 
C  TRF  Siupn-tTINE  T  ISTt’'G  IN  SECTION  5  AND  IT  IS  ALWAYS  USED, 
o  THE  CMPHT  FPCM  to^pd  IS  Tl!F.  M^DIFUD  VAI HES  FOR  THE  VARIABLES  TOLLOP 
r  s«n  r’.s IS  IN  LABELED  COMMON  BI OCK/BK/.  THE  VARIABLE  TOLLOP  IS  USBD 
C  TN  CONTOUR  LOOP  C!’RC*TSG  COMPUTATIONS.  THE  VAPIABLS  TOLSIG  IS  NO 
C  *  n NG F P  USED  BY  THE  PROGRAM. 


Subroutine  TPLDT 

FUNCTION  TPLDT  (T, IGO, DT,TLA HAX ,TL AMIN, JF,TH AX, THIN, DNIMT,LDHIKT) 

I*************************************************** ************** 

ADT  -  ABSOLUTE  VALUE  OF  CT 

DFTHMX-  MAXIMUM  ALLOWABLE  THRUST  CHANGE  OVER  THE  NEXT  TIME  STEP. 


C  DMINT-  THE  SMALLEST  ALLOWABLE  TIME  STEP  SIZE  IN  SECOKDS 
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DT-  THE  NEXT  TIME  INCREMENT 
IGO  -  EBSOR  RETURN 

JF  -  INDICATES  TIME  DIRECTION  OF  PROGRESSION 
1DEINT  -  IS  ADT  IESS  THAN  OB  EQUAL  DMIRT 
ITM  -  THE  TIME  LIMIT  HASNT  BEEN  REACHED  YET 
STHC-  SPEED  WHEN  CROSSING  A  SEGMENT  BOUNDARY 
T-  TIME  WHEN  THE  AIRCRAFT  IS  EXACTLI  AT  THE  SEGMENT  BOUND ART 
TIAMAX  -  MOST  SUBSEQUENT  TIME  STEP  TO  BE  CONSIDERED  IN  CURRENT  SBG 
TLAMIN  -  MOST  PREVIOUS  TIME  STEP  TO  EE  CONSIDERED  IN  CURRENT  SBG 
TMAX-  THE  LARGEST  ALLCHABLE  REAL-TIME  IN  SECONDS 
TMIN-  THE  SMALLEST  ALLOWAELE  REAL-TIME  IN  SECONDS 
TPLDT  -  CURRENT  TIME  STEP  (QUESTION  MARK) 


Subroutine  TPROF 

SUBROUTINE  TPROP  ( A2 , A1 ,T2,T 1, NP) 
r 

r  **************** ******** ************** ************** ************** 

C  DSL'*  -  RATIO  PRESSURE  ALTITUDE  CHANGE 

C  DH  -  DIFFERENCE  IN  HEIGHT  ABOVE  RUNVAY  FOR  LIFTOFP-  GEACUP  SEGS 
C  f)TF  -  CHANGE  TV  PRESSURE  A!T>RATIO  INCREASE  IN  Cl  IMB  GRADIENT 

C  DS  -  DIFFERENCE  I*'  PRESSURE  A’  TIT"DE  FOR  T  TFTOFF  ETC 

C  SV  -  ATOCPAF""  POWER  Tr  HEIGHT  PATTC 
r  GAM'' A  -  CMMB  GRADIENT 

C  JUT  -  INDICATES  FOPM  OF  RRO PILE 

i*  UP  -  PR^FI’ E  VEBER 

C  EDI  -  PPESSUPE  DIFFERENCE  ACROSS  FIRST  PROFILE  SEGMENT 
C  PD2  -  RDT  CORRECTED  pOP  TEMP  ♦  PRPSSURE  ATT  CHANGES 
C  THEn  -  PATTr  TEMPEPATURB  CHARGE 

C.  Wm  -  AIRCRAFT  V EIGHT 
0  TPROF  -  SUBROUTINE 

C  TPRrF  CORRECTS  THE  STORED  AIRCRAFT  TAKEOFF  PERFORMANCE  CHARACTEP- 
C.  ISTIOS  FGR  EFFECTS  OF  AIRPORT  ALTITUDE  (ABOVE  MEAN  SEA  LEVEL)  AND 
C  AMBTENT  TEMPKVAT"PF. 

C  TPROF  CA”S  THE  SUBROUTINE  DETTA. 

C  tprof  HAS  OKU  ENTRY  POINT  AND  THE  CALLING  SEQUENCE  IS 
C  CAT !.  TPPOP  ( AU  »  A1  ,T2 # ti  ,  up) 

C  «HEPE 

C  A 2  -  AIRPORT  PRESSURE  ALTITUDE 
C.  -  REFERENCE  PRESSURE  AT  TITUDE 

C  r>  -  AMBIENT  tbkpEPATURE  (K) 

C  T1  -  REFERENCE  TEMPERATURE  (K) 

C  ’•P  -  PERFORMANCE  PROFI?  E  N'»MRER 

C  TPROF  IS  CALLED  BY  THE  SUBROUTINES  PROFRD  AND  RHYRD  AND  MAY  BE 
C  CAT.’FD  MANY  TT"ES  DUPING  THE  Tup'if  PHASE  OF  EXECUTION. 

C  THE  TNP'fT  TO  TPROF  is  pROVTDED  BY  THE  CALLING  ARGUMENTS  AND  THE 
C  VARIABLE  PROF  IN  THE  LABELED  COMMON  BI.OCK/PROFII /. 

C  THEPE  ARE  FOUR  EXIT  RETURNS  FROM  TPROF,  LOCATED  AT  LINES  NUMBERED  15 
C  1c,  ’I,  AND  7A  in  the  SUBROUTINE  LISTING  IN  SECTION  5.  THE  RETURN 

C  »T  1 TNP  IS  USED  IF  THE  PRCFIJ*  NUMBER  IS  GREATER  THAN  99  AND  THE 

C  RETURN  AT  LINE  16  IS  USED  IF  THE  PROFILE  HAS  NOT  BEEN  DEFINED.  THE 

C  RETHRV  AT  LINE  31  TS  nSED  TF  T*»E  PROFIIE  IS  NOT  IN  THE  PROPER  FORM. 

C  THE  RETURN  AT  TINE  8?  IS  USED  AFTER  PROFIIE  NP  HAS  BEEN  MODIFIED. 

C  THE  OUTP’'T  FROM  TU°OF  CONSISTS  OF  THE  MODIFIED  VALUES  FOR  THE  NPTH 
C  PROFILE  VARIABLE  PRCF. 
r 
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Subroutine  VADD 


SU*>POUTTVE  VADD  (C,A,BJ 


r 


n  ****************************************************************** 

C  ’/ADD  -  S*icra:iti»'e 

C  VADD  IS  A  vector  \DDITir."  SUpRO’JTINW.  TWO  given  vectors  are  added 
C  FORMING  A  THIRD  VECTOR. 

C  «*DD  DOES  NCT  "SS  AVY  EXTEPNA7  SUBROUTINES. 

C  VADD  HAS  ONE  ENTRY  POP!"  AND  THE  CALLING  SEQUENCE  IS 
C  CATT  VADD(C,A,P,> 
r  WHE” E 

C  C  -  VA°T APLE  OF  DIMENSION!  OP  MORE  TO  RECEIVE  THE  SDH  CP  VALDES  IN  A 
r  >"D  P 

C  *  -  VARIABLE  OF  DIMENSIONS  OR  MOPE  CONTAINING  VALDES  TO  BE  ADDED  TO 
C  0 

CP-  VARIABLE  OF  DIMENSIONS  OR  MARE  CONTAINING  VALUES  TO  BE  ADDED  TO 
C  ' 

C  "ADD  IS  CALLED  BY  the  SUBROUTINES  NWASDS,  STRAIT,  XLINE  AND  THE  MAIN 
C  PROGRAM  NCISE1.  VAOD  WILT  BF  CABLED  MANY  TIMES  DURING  EXECUTION. 

C  THE  INPUT  DATA  FOR  V»DD  IS  PASSED  THROUGH  THE  CALLING  ARGUMENTS. 

C  turps  IS  'MJE  EXIT  SETUPS  FPCM  VADD  AND  IS  ALWAYS  USED, 
c  TH£  rnTp;jT  ppf)B  VADD  IS  PASSED  THROUGH  THE  CALI  ING  ARGUMENTS. 
r 


Subroutine  VDOT 

FUNCTION  VDOT  IA,B) 

C  ****************************************************************** 

C  vn^r  -  FUNCTION  SUBPC’TTVE 

C  VDCT  RETURNS  the  "DOT  PRODUCT"  OF  TWO  GIVEN  VECTORS. 

C  vnr>?  n-^ES  NOT  *iSR  EXTCRNA7  SUBROUTINES. 

C  VDOT  HAS  ONE  ENT  pv  pniST  A”D  THE  CALLING  SEQUENCE  IS 
C  vnr>T(Afn) 

C  “HERE 

C  A, B  -  V»nTAB“E S  OF  DIMENSIONS  OR  MORE 

0  VD°T  IS  CALLED  BY  THE  SUBROUTINES  V«*G,  STRAIT,  NEQPNT  AND  CKLOOP. 

C  IT  uh*  be  CALICO  MANY  TTMES  DUPING  EXECUTION. 

C  the  TNP"T  TO  VD°T  TS  THROUGH  THE  CALI ING  ARGUMENTS. 

C  THERE  IS  ONE  EXIm  RETURN  FPCM  VDOT  AND  XT  IS  ALWAYS  USED. 

C  "-’IE  -'STPUT  FROM  VDCT  IS  PASSED  TO  THE  CALLING  PROGRAM  BY  THE 
C  F” NCT TOP  NAME. 


Subroutine  VMAG 

FUNCTION  VMAG  (A) 


r 

-  ****************************  *♦***************<!■*************'******* 


0  s.ep  V" AG  -  FUNCTION  SUBROUTINE 
C  V»»SG  RETURNS  "!!E  MAGNITUDE  OP  A  GIVEN  VECTOR. 

C  VM AG  CALTS  THE  SUBRCTINE  VnOT. 
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VMAG  Has  OK  ENTPY  PCIKT  AND  THE  CULLING  SEQUENCE  IS 

VMAG (.M 

WHERE 

A  -  VARIABLE  OF  DIMENSION""  OR  MORE 

VMAG  IS  CALLED  BY  THE  S'JBRCUTIN  ES  STRAIT,  HBT,  TWYRD,  VUNT,  FIRST, 
"E«P"T,  GRADTE,  CKLOOP,  "BASES,  CURVE,  AND  THE  BAIN  PROGRAB  NOISE1. 
TfiE  TNP'tT  TO  VMAG  IS  THE  CALLING  ARGUMENT. 

TJIEi’E  TS  ONE  EXIT  RETURN  FORM  VBA 5  AND  IT  IS  ALWAYS  USED. 

the  OtlTP'iT  OP  VMAG  IS  PASSED  TC  THE  CALLING  PROGRAM  BY  THE  FUNCTION 

FAME. 


ubroutine  VSCL 


S ”3 ROUTINE  VSCL  (C,F,A) 

******************** ******************************** ************** 

•>.  A«!  VSC*  -  SUBROUTINE 

7Sct  MHTTrpjtES  A  O.IVEN  VECTOR  BY  A  GIVEN  SCALAR. 

VSCL  DOES  XCT  USE  ANY  EXTERNAL  SUBROUTINE. 

VSCT  HAS  '"NE  ENTRY  POINT  aKD  THE  CATTING  SEQUENCE  IS 
C AIL  VSCLfC.F.A,) 

'•'.HERE 

C, A  -  V. ART ABIES  OF  DIMENSIONS  OR  BORE 
F  -  MVLTIPTIEP 

VSC»  is  CAT  1  ED  by  the  SUBROUTINES  NW.ASDS,  STRAIT,  XLIME  AND  THE  BAIN 
PPCGPAM  "IOISE1 . 

THE  INPUT  TO  VSC!  TS  PROVIDED  BY  THE  CALI ING  ARGUBENTS. 

""MERF  TS  ONE  3XTT  PET'JRN  FORM  VSCL  AND  IT  IS  ALWAYS  USED. 

THF  ppOM  VSCL  TS  PASSED  THROUGH  THE  CALLING  ARGUHENTS. 


ubroutine  VSUB 

S'lRPC  UTI”E  VSUB  {C,A,3J 


****************  ************  ************************************** 

-.S1  VSUB  -  SUPnO"TINE 

VSU!)  SUBTRACTS  ONE  VECTOR  FROH  ANOTHER. 

"SU«  D^ES  N^t  USE  ANY  EXTERN AT  SUBROUTINES. 

VSU"  HAS  "HE  ENTRY  PrTNT  AND  *HE  CALLING  SEOUENCE  IS 
CM’  Vsnp(C, A,B) 

■■’HERE 

C,.A,B  -  VARIARLES  OF  DIMENSION?  OR  BORE 

*'R">B  IS  CAT T  ED  BY  THE  SDRBOUTIVES  CUFVE,  FIRST,  HBT,  NEWPNT,  NWASOS, 

^yyno,  STP ATT  AND  ""HE  .MAIN  PROGRAM  NOISE1. 

i"  HE  TNP"T  Tr  VS"B  TS  THROUGH  i’ll  E  CATLING  ARGUHENTS. 

THERE  IS  ONE  EXIT  RETURN  FROM  VSUB  AND  IT  IS  ALWAYS  USED. 

THE  o"TPUT  FPOM  VS" 3  IS  PASSED  THROUGH  THF  CALLING  ARGUHENTS. 
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Subroutine  VTRN 


n 

r 

r 

n 

r 


r 

r* 

r: 

r 


SnRpnoTT?fE  VTRU  (C,A) 


yppM  -  SMBPOnriKK 

PTRN'  TRANSFERS  A  GIVEN  VECTOR  DEFINITION  TO  A  SPECIFIED  ALTERNATE 
UEFTNTTTO". 

WTRN  DOES  NOT  USE  ANY  EXTERNAL  SUBROUTINES 

m,lRRE  TS  ONE  ENTRY  TO  VTRN  AMP  THE  CALI  ING  SEQTJEV'-  1  TS 

CALL  VTRN  (C,  A) 

VHERE  C  ,  A  -  V ART ABT. ES  OF  DIHSSSIOIP  OR  BORE 

VTF*'  TS  C.AI.TEO  BY  THE  S "COPTINES  ^IRST,  GRADlt,  NRBPNT,  NBASDS, 
YtlHF  »vn  THE  MATH  PROGRAM  HCTS  E"> . 

THE  INEPT  T"  VTRN  TS  THROUGH  THE  CALLING  AHGtJHENTS. 
tHfod  is  cve  exit  oE.,tv  prp,  VTP!1  ahd  it  is  VAIS  USED. 

THE  "t’TPPT  FROM  VTRN  TS  PASSED  THROOGH  THE  CALT  ING  ARGUBENTS. 


Subroutine  VUNT 


SUBROUTINE  VNVT  (C,A) 


r 

r  ****************************************************************** 

i -  V»IT  -  SPBR-'^tTNE 

C  VUNT  COMPETES  THE  UNIT  VFCTOR  CORRESPONDING  TO  A  GIVEN  VECTOR. 

C  V"NT  "SES  THE  SUBROUTINE  VK AG. 

C  V"NT  HAS  ONE  ENTRY  POINT  AND  THE  C AILING  SEQUENCE  IS 
C  CALI  Vtt«T(C.A) 

C  WHFPF 

C  C.A  -  VARIABLES  OF  DIMENSION?  OR  MORE 

C  V"NT  TS  CALLED  BY  THE  SUBROUTINES  FIRST,  NEBPNT,  TRAKRD  AND  XLINE. 

C  TRF  INPUT  TO  VUNT  TS  THROUGH  THE  CALLING  ARGUMENTS. 

C  THERF  AFE  TBC  EXIT  RETURNS  FROB  VUNT,  I OCATED  AT  LINES  9  AND  12  IN 
C  THE  SUBROUTINE  LTSTIN3  IN  SECTION  S.  THE  RETURN  AT  LINE  9  IS  THE 
C  NORMAL  RETURN  VHILE  Tl.B  RETURN  AT  LIRE  12  IS  USED  IF  ALL  VALUES  OF  A 
C  .ABE  EOUAt  TO  ZERO. 

C  THE  OUTPUT  FROM  VUNT  IS  PASSED  THROUGH  THE  CALLING  ARGUBENTS. 


Subroutine  XLINE 

SUBROUTINE  XLTNE  (KXX, USX, XLX, UNIT, XP1) 

r 

o  ****************************** ***************m****t**tt******t**** 

~  ’Of  At  v  AFT  ABLE  DTOTT«>’ARY 

0  KXX  -  PA  RAM  ARG 

C  USX  -  PARAM  APS 

C  PARA1*  -  (SEE  DISCUSSION  IN  BBT)  TS ACF  SEGMENT  INFORMATION 

r  uutt  -  v;:’?  vector  ir  direction  of  segme"1* 

0  V  -  SEFUS  IDENTIC?*  TO  hut?  j  ts  CONVERTED  TO  ”>IT 
0  XLT  -  SEGMENT  LENGTH 

:  u>’  -  r:VIT  nKrp  hi  ntPEr»-ION  nF  TRACA 


7-101 


VFCTOR  AEYVAY  AS  SUPOR  PREVENTION  ( 

INP  -  S"BRCUTT’!E 

XTi?tF  C'^PUTES  THE  VARIAB*  RS  FOR  THE  STRAIGHT  LINE  SEGMENTS  IN  TRACK 
DEPTUITT CM  DATA.  (SEE  SUBROUTINE  HBT,  VARIABLE  PARAS. ) 

X'  THE  OSES  THE  SUBROUTINES  VADD,  VSC 1,  VTRN  AND  VUNT. 

X*  IMF  HAS  o»;e  EE^PY  P«nr>  a*»c  the  CALLING  SEQUENCE  IS: 

CALI  TUNE  (KXX,NSX.XLX,'’STT,XR1) 

HHERP 

EXX  -  THE  TP ACK  T*NBER 

•;SX  -  THE  NUMBER  n?  THIS  SEGMENT 

X’  X  -  THE  *.F!!GTH  "F  THE  SEGMENT  IN  FF.ET 

""IT  -  A  '’"IT  VECTOR  TANGENT  THE  END  POIHT  (KCT  THE  START  POINT) 
r  F  T*l®  LAST  SBGHFHT.  nt!IT  IS  OP  DIHENSI0N3  OR  MORE,  THE  PIRST  TWO 
POSITIONS  of  P (ITCH  CONTAIN  THE  VALUES  CF  THE  X-  AND  X-COHPONENTS  OF 
THE  •’NIT  "ECTon. 

TR1  -  A  VA°T.\B7  E  OF  DIMENSION1  OR  SORE,  THE  FIRST  TWO  POSITIONS  OF 
WHICH  Co'(t\j);  THE  X-  AND  Y-CCDRDINATE5  CF  THE  END  POINT  OF  THE  LAST 
SEGSF"T. 

THE  '"NLY  SUBROUTINE  To  OSE  XIINE  IS  TRAKRD.  XI  INE  IS  USED  IN 
<"0 NJnNCTION  WITH  HELG  TC  DEFINE  GROUND  TRACK  GEOSETRY  AND  HAY  BE 
■’SFD  MANY  TIMES  D^ING  THE  I»>P"T  PHASE  OF  EXECDTION. 

"•HEPS  TS  ONE  EXIT  RETIRE  FPOH  XLINE,  LOCATED  AT  LINE  NUMBER  15  IN 
THE  * ISTIKG  cf  THE  SUBROUTINE  IN  SFCTICH  5.  THIS  RETURN  IS  ALWAYS 
'•SFD. 

THE  ■?"TPUT  FF^S  XIINE  IS  PASSED  THROUGH  THE  CALLING  ARGUHESTS.  IN 

snnrFicH,  the  appropstate  iccations  ik  the  variable  paras  in  labeled 

COMMON  HLOCK/TRACK/  ARE  IN  IT  IV  17.  ED. 

THE  ONLY  PROCESSING  PEPFORKED  BY  XLINE  IS  THE  CONFUTATION  OF  THE  END 
Pf'IN'p  OF  THE  SEGMENT  SINCE  THE  START  POINT  IS  IDENTICAL  TO  THE  END 
POINT  nf  THE  LAST  SEGMENT. 

VS,YS  -  SEGHENT  START  COORDINATES 

XU.Y"  -  COMPONENTS  OF  "NIT  VECTOF  ALONG  THE  SEGHENT 
XT  X  -  SEGMENT  7 EVGTH 


Subroutine  ZERO 


SUBROUTINE  ZERO  (A,N) 


C  ****************************************************************** 

C  A  -  VECTOR  Tn  BE  Cl  RAPED 

c  N  -  NP«BER  CF  E’ESHNTS  IS  VECTOR  A 

C  TEPC  -  SUBROUTINE 

C  ZEPP  SETS  SPECIFIED  MEMORY  LOCATIONS  TO  THE  NUMERIC  VALUE  ZERO. 

C  ZERc  DOES  NOT  USE  ANY  EXTERNAL  SUBROUTINES. 

C  ZEPr  HAS  ONE  ENTRY  POINT  AD  THE  CALLING  SEQUENCE  IS: 

C  CALI  ZERO  (A, N) 

C  WHERE 

C  A  -  VARIABLE  op  ANY  DIMENSION 

C  N  -  NUMBER  OF  POSITIONS  IN  A  TO  BE  SET  TO  ZERO. 

C  ZERO  IS  CALLED  BY  THE  SUBROUTINES  CLRTAL,  DHPTAL,  EXPOSE,  PCHTRD  AND 
C  THF  M»TN  PROGRAM  N0ISS1. 

r  THE  INPUT  TO  ZERC  IS  THROUGH  -HE  CALLING  ARGUMENTS. 

C  THERE  IS  ONE  EXIT  RETURN  FROM  ZERO  AND  IT  IS  ALWAYS  USED. 

C  THE  OUTPUT  FROM  ZERO  IS  THROUGH  THE  CALLING  ARGUMENTS. 
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